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0097 
0099 

0100 
0101 



00023700 T 0102 



L 

C 

C 
r 

C 
C 
C 

c 
c 
c 
c 
c 
c 

r 

C 
C 
C 

c 
c 
c 

c 



o 



-- 'I 



o 
o 
o 
o 

E 
o 

u. 

io 

a 

o 
o 
o 

o 
o 
o 

o 

o 
o 
o 
o 

o 



out to xit end;* 



out to xit end;? 



BOOLEAN STREAM PROCEDURE COMPaReCN, A , B ) *% 
VALUE N* 
COMMENT RETURNS TRUE IFF ARRAY A SORTS LOWER THAN 6; 

& * * * * * * * * a************************************************ 
BEGIN LABEL XIT; 
LOCAL SA.DA;* 

si: = a; D i :=b s 

NCUpSl JUPDI; 

sa:-si; da:sdii« 
if 7 sc gtr dc then 
begin tally;-oj jump 
diibda; sp=sa; 
if 7 sc lss dc then 
begtn tally:=i; jump 
u% equal,, repeat 

TALl.YJsj, 1% 
XIT?COMpARE:=TALLY;X 
END COMPARE;* 



2******^*** ************************ ^fc^*************^**** 

BOOLEAN STREAM PROCEDURE EQUALC N» A » R ) ; * 

value n;x 

comment returns true iff array a = b for n words; 

g********************************************************* 
BEGIN LABEL XIT{ 

SMbA; DI ;= Bi% 

NCUpSUUpDl; 

IF 7 SC NEQ DC THEN 

BEGIN TALLYj=0; JUMP OUT TO XIT END)** 

TALLYj-l;* 
XIT5EQUflL:*TALLY;X 
END EQUAL;* 



X************************************************************ 

stream procfduRe movecn,a»b); value n;* 

$************************************************************ 

begin si:=a; dijsb; dsj=n wds end move;* 



$******#******************************** ^fr****************^* 

integer procedure timeRct);* 

valuf t; Real tu 
comment : takes binary time in t in 1/60 seconds and 

converts as follows ? 

JOB TiME(T) LSS j MINUTES 
T IMERC 12S 1 21 * := "0M» 

5J= SECONDS 

!!= 1/60 SECONDS 
JOB TIMECT) GTR 1 MINUTEJ 



TlMERt2«M2l 

TIMERC36U21 

TIMECT) GTR 1 



00023 
00023 
00024 
00024 
00024 
00024 
00024 
00024 
00024 
00024 
00024 
00024 
00025 
00025 
00025 
00025 
00025 
00025 



800 
900 
000 
100 
200 
300 
400 
500 
600 
700 
800 
900 
000 
100 
200 
300 
400 
500 



00025600 
00025700 

00025800 
00025900 
00026000 
00026100 
00026200 
00026300 
00026400 
00026500 
00026600 
00026700 
00026800 



00027300 
00027400 
00027500 
00027600 
00027700 
00027800 
00027900 
00028000 
00028100 
00028200 



00026900 T 
00027000 T 
00027100 T 
00027200 T 



0102 
0102 
0102 
0102 
0102 
0102 
0102 
0102 
0104 
0104 
0105 
0106 
0106 
0107 
0108 
0108 
0109 
0109 



0110 
0110 
0110 

ono 

0110 
0110 
0111 
0111 
0113 
0113 
0115 
0U5 
0116 



0117 
0117 
0117 
0117 



0119 
0119 
0119 
0119 
0119 
0119 
0119 
0119 
0119 
0119 



L 

C 

c 
c 
c 
c 
c 
c 
c 
c 






c 
c 
c 
c 
c 
c 
c 
o 
o 
o 



c 



( ') 



<v.. 






o 

o 
o 
o 



TIMERC IS; 1 23 
T lMjrRC24: 1 2] 

TIMeR[36s12] 



: J 5 HOURS 
Jl= MINUTES 

» i 5 seconds;^ 

is***********************************************;************ 

BEGIN INTFGF.R H»M,S»SS. A J* 



A:=TJX 

HS = A 01 V 216000; AJ-A MOD 216000* 
MS=A OIV 3600; A:=A MOD 3600J3 
S;=A DIV 60; SS:=T MOD 60;* 
H:=DECVC3»H)?X 
M|SDECV(2»M)»X 
S*=pECVC2«S);X 
SSJ=DECVC2»SS);^ 
IF(H+M)=0 THEN 

TlMpR:=SS&Sc24i36: 123&»0M»[ 1 2 ; 36 1 123 
TIM f R»bSKM[24136»12]&H[12|36I 12] U 
end TlMpR;% 



START Or 



Ei-SE 



3 IS 



00028300 


T 


0119 


00028400 


T 


0119 


00028500 


T 


0119 


00028600 


T 


0119 


00028700 


T 


0119 


SEGMENT 


********** 


00028800 


T 


0000 


00028900 


T 


0000 


00029000 


T 


0003 


00029100 


T 


0005 


00029200 


T 


0008 


00029300 


T 


0010 


00029400 


T 


0012 


00029500 


T 


0014 


00029600 


T 


0016 


00029700 


T 


0017 


00029800 


T 


0020 


00029900 


T 


0026 


31 LON( 


5 » 


NEXT SEG 



L. 

c 
c 
c 
c 
c 
c 



IO 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



PR0CE 
V 

I 
comme 
% 
% 
% 
% 
% 

BEGIN 
I 



***************************************************** 

DURE ST!MER(TtWDl»N02)»X 
ALUE Ji% 

NTfGFR T»WDlfWD2l 
NT CONVERTS TlMCCT) 



W01C30I 121 S»= 

WDH42J6] tl- 

WD2C24812] Us 

WD2C30I63 :s= 

WD2C36: 123 *« = 



AS 

DD 
" ; »f 

DD 
•• ; tt 

DD 



FOLLOWS; 



****************************************************** 

nteger i; 



W D 1 »='*:*'; WD2J="00J00 ,, j?J 

WDl8=WDHCI«-TlMERCT))C30jl2?12];2 

W02!=WD2Rin8j24il2]RH36:36Jl2j;S5 

end stimer; 



START 



H IS 



00030000 T 0H9 

00030100 T 0119 

00030200 T 0119 

00030300 T 0119 

00030400 T 0119 

00030500 T 0119 

00030600 T 0119 

00030700 T 0119 

00030800 T 0119 

00030900 T 0119 

00031000 T 0119 

00031100 T 0119 

00031200 T 0119 
OF SEGMENT 
00031300 T 
00031400 T 
00031500 T 
00031600 T 
12 LONG* 



********** 
0000 
0002 
0005 
0008 
NEXT SEG 



%*******$ ft*******************; * *********************** 

INTEGER PROCEDURE MATCHC V, A ) ; 2 

VALUE v; 

REAL V; ARRAY A [ 3 5 % 

COMMENT LOOKS TO SEE IF VaLUE V OCCURS IN ARRAY A* 

IF IT DOES RETURNS lNQEX»lF NOT RETURNS 0; 
%***************************************************** 

BEGIN INTFGF.R NAE» I 1 X 

LABEL XjTJX 
MAEs=AfO]; MATCHiaO;* 



00031700 T 0119 



00031800 
00031900 
00032000 
00032100 
00032200 
00032300 
00032400 
START Of SEGMENT 
00032500 
00032600 



T 0119 

T 0119 

T 0119 

T 0119 

T 0119 

T 0119 

T 0U9 
********** 

T 0000 

T 0000 



C 

c 
c 

c 
c 
c 
c 
c 
c 
c 
c 



o 



J > 



o 
o 

o 

to 

p 

p 

!o 

D 

O 
Cj 

s o 

o 
o 
o 
o 



o 



o 
o 

o 
o 



o 



o 
n 



for i :=i step i until nae do 

BEGIN 

IF V*ANJ THEN 

REGIN MATCH! = I; GO X IT END;* 
ENp LOOP;* 
X T T * 

END MATcHJX 



00032700 


T 


0001 


00032800 


T 


0003 


00032900 


T 


0003 


00033000 


T 


0004 


00033100 


T 


0003 


00033200 


T 


oooa 


00033300 


T 


0006 



5 IS 11 LONG. NEXT SEG 



IS******************** **************************** ********** 
PROCEDURE PRINTLINECLINE'WHICH);* 

VALUE WHICH; INTEGER WHICH** 

ARRAY LINECO];* 
2************************************** ******************** 
REG IN 

switch file swf«sprnt#uprnt»x 

if which=useRpt then ulinfctruulinectr+i else 
linFctrj=linectr+i; 

WR!TE(SWFtWHlCH DIV 21 * 15'L I NE[* ] ) > % 
END PRINTLINE;* 



START 



00033400 
00033500 
00033600 
00033700 
00033800 
00033900 
00034000 

Of segment 

00034100 
00034200 
00034300 
00034400 



T 0119 

T 0119 

T 0119 

T 0119 

T 0119 

T 0119 

T 0119 
********** 

P 0004 

P 0006 

P 0008 

T 0013 



6 IS 18 LONG* NEXT SEG 



%*** ********************* ******************************„,*„,*.,,„,.,. 

STREAM PROCEDURE BLANKOuTC Li N f ) ; % 

g ********* ************************************************ 

BEGIN 

di ;=line;ds?= a lit» »; 

SI SsLINEI* DS: = i6 WOS; 
END BLAnK0UT;X 



£** ********************************** ***************** # £ + 
STREAM PROCEDURE ClEAR(N»A)J 

VALUE n;x 

COMMENT SET N+i WORDS TO ZFR0; 
********** ************************************ ********** 
BEGIN 

ni !=aj DS;=8 LiT"0»; 
si j = a; dsj=n wdsi 
end clear;* 



%******** a*********************************************,^,^,^ 
procedure nextPagecwhich);* 

va^ue which; integer which;?; 
x*************************************************,,,*,,,,,,,^.,,*,^ 



00034500 
00034600 
00034700 
00034800 
00034900 
00035000 
00035100 



0119 
0119 
0H9 
0119 
0120 
0121 
0122 



00035200 


T 


0122 


00035300 


T 


0122 


00035400 


r 


0122 


00035500 


T 


0122 


00035600 


T 


0122 


00035700 


T 


0122 


00035800 


T 


0123 


00035900 


T 


0124 


00036000 


T 


0125 



00036100 T 0125 

00036200 T 0125 

00036300 T 0125 

00036400 T 0125 



c 

c 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
o 
o 
o 
o 
o 
o 
o 
n 



o 

G 

Q 

O 
SO 
P 

E 

o 

u_ 

jo 

o 

b 

s o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



BEGIN 

REAL 



]',% 



SWITCH KILE SWFisPRnT»UPRnTjX 

FORMAT HF(»X26»"** B-5500 TIME SHARING SYSTEM LOG ", 



"REPORT ** ,, ,X7*A6*"0AY 
*"PAGF W »I5); 



"»»2CI2»"/ ,, )» I 2* X 1 1 



END 



I, I ST hLCOAY.DATEI »0ATF2»DATE3» 

if whichsUSerpt then upageno»=upageno+i else 

PAGEN0»hPAGEN0+1>*X 

writecswfcwhich di v 2upage]);x 

write (Swf [Which div 2Hdbl3»hf»hd>x 

if which=userpt then ulinfctr:=6+nfidlines else 

LINECTRj-6+NFIDLINES; 

for i 1*0 step 1 until nfld^ines 
do printlinecfidlinfu»*j,hhich);j5 
nextpage;ib 



00036500 
00036600 

START OF SEGMENT 
00036700 
00036800 

START OF SEGMENT 

00036900 T 
00037000 T 
8 IS 23 LONGt 
00037100 T 
00037200 
00037300 
00037400 
00037500 
00037600 
00037700 
00037800 
00037900 
00038000 
7 IS 42 LONG* 



T 0125 
T 0125 

********** 

T 0000 
T 0004 
********** 



0004 

0004 
NEXT SEG 

0004 

0010 

0014 

0019 

0024 

0028 

0030 

00 32 

0032 

0038 
NEXT SEG 



£****************************************************„,*** 
PROCEDURE PUTHEADERCWHICHm 

VALUE which;* 

INTEGER WHICH; 
$********* *********************************** ************ 

BEGIN 

SWITCH FILE SWF!lF'=PKNT,uPRNT;x 



SWITCH FORMAT SWFS= 

CXsi,»U S E R JOB 
(X50»"U S E R D I S 
(X55»»U S E R SUM 

SWITCH FORMAT SWFF:= 



> U 

s 

A R 



M M A R 
U M M A 



Y")*2 



START 
START 



00038100 
00038200 
00038300 
00038400 
00038500 
00038600 
00038700 

OF SEGMENT 
00038800 

OF SEGMENT 
00038900 
00039000 
00039100 



T 0125 

T 0125 

T 0125 

T 0125 

T 0125 

T 0125 

T 0125 
********** 

T 0004 

********** 



10 



10 IS 



30 LONG* 



f "USER"* X4>"PN1",X5»"PN2 ,, ,X5, 
"LL m ,X5*"B0J"»X7, ,, eOJ» , *X7* 
"PST%X7,"IQT' , »X4»"ET/TT"»X9, 

"C0RE"»XI#"TRMNTN",X2,"MfId",X/|» 

"FrD , SX6,"UNlT",X4,"TiME»)» 
C"USER".X5» M MFlD».X5*"FlD»>X6* 

"CrEATn DATE & TlME"»Xi#»L0G0FF TIME»*X2* 

M # DISK SEGS"*X5»"TIME UsED")'% 
C"UsER"*X27»"PST"fX7»"lQT"*X7»"ET"»X8*"C&E"*X4* 

"TERMINAL"' Xt» "CORE /SEC S*») | X 

nextpagecwhich);s 

WRITECSWFILECWHICH DIV 2J[DBL]»SWFCWH1CH3)J 
WRlTFfSWFlLEtWHKH DIV 2 ] r DBL } * SWFFC Wh I CH] ) ' % 
END PUThEADERJS 



0004 

0004 

0004 
NEXT SEG 
T 0004 
********** 



00039200 
START OF SEGMENT 

00039300 T 0004 

00039400 T 0004 

00039500 T 0004 

00039600 T 0004 

00039700 T 0004 

00039800 T 0004 

00039900 T 0004 

00040000 T 0004 

00040100 T 0004 

00040200 T 0004 

11 IS 74 LONG* NEXT SEG 

00040300 T 0004 

00040400 T 0005 

00040500 T 0009 

00040600 T 0014 

9 IS 19 LONG* NEXT SEG 



11 



C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 






c 
c 
c 
c 
c 
o 
o 
o 
c. 



o 

Qj 
O 

o 

o 
o 



30 



:-0 

E 

LL 

iO 

CJ3 

O 


=o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



X*************** ************************************* ****** 

rOOLfaN procedure msKRcAo;* 

<g* ************************************** ******************* 

BEGIN 

LABEL GET.EOF.ThRU? 

GETlREADCDlSK»10»L0GRFC[*J)[EoF]SX 

IF LOGREC[0]=REALCNOT FALSE) THEN GO TO EOF; 

IF L0GRECC03.TYPEF LSS BOJ THEN Go GET; 

PTRi*pTRBASE* 

IF LOGRECCOJ.TYPEF NEQ DATEMESS THEN GO THRU) 

DO UNTIL SCAN = "C"; LaS TDATE ? = |x|UMBERSC AN-YEAR ; 

if firstdate=0 then begin f i rstdate * =lastdate ; 
fir v stdate8=firstdate + beglntime div 5184000; 
regintimeisbegintime mod 5184000 end; 

PTR t* PTRBASE; % ALLOWING RECORD TO BE SCANNED AGAIN 
GO THRUJ 
EOF'IF FinQCFIDP'-FlDP+U NEQ THEN 
BEGIN CLOSE(DISK)* 

MFIDl=FlDo[FlDp3lX 

FILL DISK WITH MF IDlZ 

GO TO GET; 
END;* 

0iskread5-truej 
thru; 
end diskread; 



00040700 T 

00040800 T 

00040900 T 

00041000 T 

0004U00 T 

START OF SEGMENT ***** 

00041200 T 

00041300 T 

00041400 T 

00041500 T 

00041600 P 

00041610 C 

00041620 C 

00041625 C 

00041630 C 

00041635 C 

00041640 C 

00041700 T 

00041800 T 

00041900 T 

00042000 T 

00042100 T 

00042200 T 

00042300 T 

00042400 T 

00042500 T 
12 IS 43 LONG* 



01 
01 
01 
01 
01 



00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
NEX 



25 

25 

25 
25 
25 

***** 

00 
05 
07 
09 
09 
11 
18 
20 
21 
23 
23 
27 
29 
31 
32 
36 
36 
36 
37 
38 
T SEG 



12 



COMMENT :$:!} SECTION - 04 - SNAP REPORTS ;::;»; 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
%*************** ****************************************** 
PROCEDURE HLANAfX 
********************************************************* 

BEGIN 

FORMAT FlC'THERE WERE "#I3» " HALT LOADS");* 



FORMAT F2CHALT LOAD TIMES WERE J ")» 

F3CX2»A3,A5»X2»l6), 

F4C"MEAN TIME BETWfEN HALT LOADS... "»A3*A5); 

FORMAT F5(»TIMf PERIOD COVERED WAS FROM ",a3,a5. 

X2. 16. '♦ TO ".A3.A5.X2. 16); 

REAL AiBiCDiiU 
LABEL XIT;£ 

STIMER(BEGINTIME»A»B); STlMER(LASTIME»C»D)l* 



00042600 T 
00042700 T 
00042800 T 
00042900 T 
00043000 T 
00043100 T 
00043200 T 
00043300 T 
START Of SEGMENT 
START OF SEGMENT **** 

14 IS 8 LONG* NE 

00043400 T 

START OF SEGMENT **** 

00043500 P 

00043600 T 

15 IS 26 LONG* NE 

00043700 T 

START Of SEGMENT **** 

00043800 P 

16 IS 17 LONG. 

00043900 T 
00044000 T 
00044100 P 
00044200 T 



0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
********** 



NE 







****** 
XT SEG 

000 

****** 

000 
000 

XT SEG 
000 

****** 

000 

XT SEG 

000 

000 

000 

000 



13 
14 
13 

15 



13 
16 
13 



c 
c 

c 
c 

c 

I" 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



c 



o 
o 

c 



01 
O 
O 
O 

so 



WRITECPRNT#F5»A»B»FlRSTDATE+YEAR»C»DfUAST0ATE+YEAR)» 
WRlTECPRNTCDBL]»FliHLf');X 
IF HLP - THEN GO X I T ; % 
WRITECPRNT[DBU»F2);X 
FOR n = l STEP 1 UNTIL H^P DO 
BEG?N COMMENT »/L TlMESi 
STlMER(HLQ[n»AfB); 

WRITECPRNTtDBLJfF3,A,B,HLDATE[I]+YEAR); 
END PRINTING HL TIMES; 

STIMER((LASTIME-BEGINTIME + L.APSE)/HLP»A»B)J 
WRlTE(PRNTCDBL3#FA»A»B)j2 



X I T J 

END HLaNAJ* 



00044300 
00044400 
00044500 
00044600 
00044700 
00044800 
00044900 
00045000 
00045100 
00045200 
00045300 
00045400 
00045500 



0002 
0022 
0030 
0031 
0034 
0036 
0036 
0037 
0052 
0054 
0058 
0069 
0070 



C 
C 
C 
C 
C 



13 IS 74 LONG* NEXT SEG 



P 

i 

O 
LL 

§0 

r.J 


:: o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



procedure lineana;* 

comment prints ()ut the amounts and %$ of time 
that i lines were in use;* 

begin boolean first;* 



T 


0125 


T 


0125 


T 


0125 


T 


0125 


T 


0125 


T 


0125 



FORMAT FlC'NO, OF LINES IN USE 



TIME 2T0TAL TIME"); 



FORMAT F2(Xlt»l4fX4,A3,A5,X3fF8,2);% 



REAL I»Ll»L2fX 

REAL MAX,T»TTJX 

LABEL XIT;2 

WRITECPRNTEDBLJ.F1);* 

FOR I:=NUMLINES STEP -1 UnTIL DO 

BEGIN T:-LINEARRY[U; 

TTJsTT+T; IF T NeQ THEN 

IF NOT FIRST THEN BEGIN FIRST »»TRUeJMaX I ■! ENDJ 

end; 

if tt=o then go to xit;x 

FOR I i=0 STEP 1 UNTIL MAX Do 
BEGIN 

STIMERCT:=LINEARRYEI]»L1»L2);2 

WRlT£{pRNTCDBL3*F2#I+CoMLlNES»Ll»L2MOOx(T/TT)))X 
END; 
X IT j 

end linfana;* 



00045600 

00045700 

00045800 

00045900 

00046000 

00046100 
START OF SEGMENT ********** 

00046200 T 0000 
START Of SEGMENT ********** 

18 IS 10 LONG* NEXT SEG 

00046300 T 0000 

start of segment ********** 

19 IS 10 long, next seg 



17 

18 
17 

IV 
17 



00046400 
00046500 
00046600 
00046700 
00046800 
00046890 
00046900 
00047000 
00047100 
00047200 
00047300 
00047400 
00047500 
00047600 
00047700 
00047800 
00047900 



17 IS 38 LONG* 



0000 
0000 
0000 
0000 
0003 
0004 
0005 
0007 
0010 
0012 
0013 
0015 
0015 
0017 
0031 
0033 
0034 
NEXT SEG 



PROCEDURE MjXANA; 

COMMENT PRINTS OUT THE NUMBER Of JOBS IN M|X A LA LlNEANA; 
BEGIN BOOLEAN FIRST * 



00047901 
00047902 

00047903 
START OF SEGMENT 



C 0125 
C 0125 

C 0125 

********** 



20 



c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



o 



c 



o 

0! 
O 
O 

o 
o 

i 

lo 

o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



format ficno. of Jobs in mix 



TIME STOTAl TIME")} 



FORMAT F2(Xll, I4.X4.A3»A5,X5»F8,2); 



heal i.li»L2»max,t»tt; 

LABrL x it; 

WRlTE(PRNTrDBL]#Fl); 

FOR IIbMIXMAX STEP -1 UNTjL Do 

BEGIN TS=MIXARRY[ I J; 

TTJ=TT+TJ IF T NEQ THEN 

IF NOT FIRST THEN BEGIN FIRST:~TRUE; MAX S =I END; 
END? 

IF TT=0 THEN GO TO XIT; 
FOR I ;=0 STEP 1 UNTIL MaX DO 
BEGIN 

STlMERCT?sMlXARRYcn* L i,L2>» 
WRlTECPRNTCDBLJ»F2»I»Ll»L2»100xCT/TT))l 
END; 

XITj 

END HIXaNAI 



00047904 C 0000 
START OF SEGMENT ********** 

21 IS 10 LONG* NEXT SEG 

00047905 C 0000 
START OF SEGMENT ********** 

22 IS 10 LONG, NEXT SEG 

00047908 C 0000 

00047909 C 0000 

00047910 C 0000 

00047912 C 0003 

00047913 C 0004 

00047915 C 0005 

00047916 C 0007 
00047918 C 0010 
00047920 C 0012 
00047922 C 0013 
00047924 c 0015 
00047926 C 0015 
00047928 C 0017 
00047930 C 0030 
00047932 C 0032 
00047934 C 0033 

20 IS 37 LONG. NEXT SEG 



21 

20 

22 
20 



X********************************************************** 

procedure errana; 

comment lists the no. of errors per peripheral) 

X*************** ********* ****#* ***************************j 
BEGIN FORMAT FTC "PfR I PHERAL DfVICE ERRORS WERE DISTRIBUTED". 

" AS FOLLOWS «",/, "LUN",X4,»UNlT",XlO»»'NOE"m 
FORMAT F(I3»X2,A6iX5>lB)JX 

REAL I; 

nextpageconsite);* 

writecprntcdbu'ft);* 

for i :=1 step 1 until 31 % 

DO IF RTECIJ NeQ THEN WR I TECPRNTC DBL 3 , F> ]" 1 > UN I T [ I J ,RTEt I J ) i% 

end frrana; 



00048000 T 0125 

00048100 T 0125 

00048200 T 0125 

00048300 T 0125 

00048400 T 0125 

start of segment ********** 
start of segment ********** 

00048500 T 0000 

24 IS 19 LONG. NEXT SEG 

00048600 T 0000 
START OF SEGMENT ********** 

25 IS 8 LONG. NEXT SEG 



23 

24 

23 

25 
23 



00048700 


T 


0000 


00048800 


T 


0000 


00048900 


T 


0000 


00049000 


T 


0003 


00049100 


T 


0003 


00049200 


T 


0022 



23 IS 25 LONG. NEXT SEG 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
COMMENT :?::: SFCTioN - 05 - ONSITE REPORTER ;s::;j 

COMMENT LAYOUT OF THE ONSITL SORT RECORDS?; 

* SC03 ! := USER ID 

* SCI] l i- LINE NO, 

* S£2J i :- PROG NAMe 1 



00049300 
00049400 
00049500 
00049600 
00049700 
00049800 
00049900 



0125 
0125 
0125 
0125 
0125 
0125 
0125 



c 

c 
,c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
o 
o 
o 
o 
o 

C) 



o 
o 
o 
o 

p 

o 

Ll_ 

!o 

cj 

O 

o 

o 
o 
o 
o 
o 
o 
o 
o 
o 

'O 

o 
o 



% 
% 
% 
% 
% 
% 
% 

COMMENT 

% 
% 
% 

COMMfNT 
% 

% 
% 
% 
% 
%****** 

STREAM 
VAI, 

&****** 

BEGIN 

ni s 

Si! 
Si I 

sn 

2CD 
END MAK 



SC3J 
SC4] 
S[5] 
SrM 
SrM 
ST8] 
SC9] 
LAYOU 
FC03 

ftaj 

FC5J 

LA YOU 

T[0] 

TCU 

Tr?] 

T[3] 
TM3 

****** 

PROCFD 
UE MP I 

****** 

=line; 

eLOC M 
sSi+5l 

=si+2; 
SJ=? c 
EFILED 



! = 



T 
-FC 

i : 
-FC 
T 



* 

*** 
URE 

D»F 

*** 



PROG NAME 2 
BOJ TiMe; 
EOJ TiMe 
CPU TiME USED 

i/o Time used 

CORE USED 

"DS-EL)"»"E0j"»ETC, 
THE FILE STaT SORT RECORD; 
3 }!= SCo]-S[33 

close stat time 
3 j 8= same as log record 
thf terminal logging Record; 
usfr td 
line no 

"LINE &" 
"C&E USE" 

time logged on 

******* ************************************** 

MAKEFlLEDETAlLLlNECLINE»MFlD»FID.UNITiTlH)iX 

D»UNIT»T1MIX 

******************************************* 



DI :=D I +60; D I ;=DI+35;* 

FI0J 2cupsi;dsj=7 chR? updi>* 

01 s=DI+2; DS: s=3 cHR? % UNIT 

Dl J=DI+2JX 
HR* DS5=LIT"5'0; DSJ=2 CHR'X 
ETA1LLINEU 



% MFID»FID 



00050000 
00050100 
00050200 
00050300 
00050/100 
00050500 
00050600 
00050700 
00050800 
00050900 
00051000 
00051100 
00051200 
00051300 
00051400 
00051500 
00051600 
00051700 
00051800 
00051900 
00052000 
00052100 
00052200 
00052300 
00052400 
00052500 
00052600 
00052700 



%******************************************************* 

procfdure fiLedftailcsortRfc); 

ARRAY SORTRECrOm 

COMMENT FORMATS THEM FILE RECORD PRINTLINE?* 

£****************************#*******#***********************# 

BEGIN 

DEFINE S = SORTRECm 

real lun;x 
label xi t; 

1F(lUn«=S[83.C36S63)=0 THEN GO TO XlTJfc 

RTE[LUNJl=RTErLUN3+Sta3.C?4ll2]lX RUN TIME ERRORS 

BLANKOUT(LINE); 

MAKEFILEDETAILLINECLINE»5[5]»S[6 3»UNITCLUN3» 

TIMFR(ABSCSt93)))l« 
IF DETOG THEN 

PRINTLINECLINE.ONSITE);^ 
XITI 
END FILeDFTAILJS 



0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0126 
0126 
0128 
0129 
0129 
0131 



00052800 T 

00052900 T 

00053000 T 

00053100 T 

00053200 T 

00053300 T 

00053400 T 
START OF SEGMENT 

00053500 T 

00053600 T 

00053700 T 

00053800 T 

00053900 T 

00054000 T 

00054100 T 

00054190 C 

00054200 T 

00054300 T 

00054400 T 
26 IS 17 LONG* 



0131 
0131 
0131 
0131 
0131 
0131 

0131 

********** 

0000 
0000 
0000 
0002 
0006 
0007 
0010 
0011 
0011 
0013 
0014 
NEXT SEG 



26 



3!2!************************************************ *********** 



00054500 T 0131 



L 

C 

c 
c 
c 
c 
c 
c 
c 
c 
c 



c 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



o 



\-\\ 

( ^<1 



STREAM PROCEDURE MaKELEVELL I NfC L I NE, ASTER I SK , LEVEL* 
A PST,lOT.ET»COR); 

Q | VALUE PST»lOT»ET.COK»ASTERISK. LEVEL'* 

<g ************************ ******************************** 

- BEGIN SjJsLOC ASTERISK? OUTLINE?* 

pj OI»bO! + 18J 2(UpDpUpSi;DS{B7 CHR)IX 
^ DSjsi? LIT" TOTALS »;% 



o 

o 



o 



o 

o 



3CSl»sSI+2*Dl s=DI+2;* 
2CDS!=2 CHR; DS}=LIT": M );* 
DS:=2 CHR)** 
D!:«0T+2; DS:- 8 DEC' 3, 
DI :=DI-8;DS:=8 fi LL ; SS 
end maKpLevrlline;* 



00054600 


T 


0131 


00054700 


T 


0131 


00054800 


T 


0131 


00051900 


T 


0131 


00055000 


T 


0131 


00055100 


T 


0132 


00055200 


T 


0134 


00055300 


T 


0135 


00055400 


T 


0136 


00055500 


T 


0137 


00055600 


T 


0138 


00055700 


T 


0138 


00055800 


T 


0139 



IF i»0 THEN 0SUSEt=l ELSE REMUSEI=1J* 
END SPLIT** 

27 IS 10 LONG* NEXT SEG 



00057100 


T 


0148 


00057200 


T 


0148 


00057300 


T 


0148 


00057400 


T 


0148 


00057500 


T 


0148 


OF SEGMENT 


********** 


00057600 


T 


0000 


00057700 


T 


0002 


00057800 


T 


0004 


00057810 


T 


0006 


00057900 


T 


0009 



c 
c 
c 
c 
c 
c 
c 



*~. X******************************************************** 00055900T 0139 - 

1 PROCEDURE LEV£L(WHlCH>PST,iOT,ET»COR); 00056000 T 0139 ^ 
£ VALUE WHICH, PSTiIOT, El, COR'% 00056100 T 0139 

If) INTEGER WHICH; 00056200 T 0139 

1 REAL PST,IOT,ET#C0R;* 00056300 T 0139 

e ,.__ . . _ .. X******************************************************* 00056400 T 0139 

--f) BEGIN 00056500 T 0139 

BLANKOUTCLINE); 00056600 T 0139 

M At<F'LEVELUNEaiNE»ASTERISK[WHIcH].LEVEURRY[WHICHJ» 00056700 T 0141 

q TlM F R(PST),TlM E RflOT)»TlM F R(ET),COR)iiK 0005680Q T 0t42 

^ IF DETOG THEN 00056890 C 0J45 

PRINTLINE(LINE,0NSITE);X 00056900 T 0145 

q END LEVELS 00057000 T 0147 



O 

--- - -- ************************************************************************ 

p PROCEDURE SPLIT(I); VAU.IE 15* 

w Real u% 

— X*********************************************************************** 

BEGIN DEFINE P = GU0# , I OsGT 1 1# , E*GT12# i % 

START OF SEGMENT ********** 27 
PSToTAl,S[I3tsPSToTAL,S[n+pIJ! 
p IOToTALStI] ;= IOTOTALSLI] + lQ}% uvu JffU y , uvuz 

"- ET0TALSCI3s=ET0TALSr n+Ej* 000S7A0O T OOOa ( ~ 



C 
C 

c 
c 
c 

C 
C 



C 

c 



_ ********************************************************* 00058000 J 0148 

U STREAM PROCEDURE MAKEDETA I LLl NEC LI N£, USER,PNl , PN2 , LL, BOJT, 00058100 T 0148 C 

E0JT,PST, I0T,ET,C0R,HEND);* 00058200 T 0148 

p. VALUE USER, PN1,PN2»LL*B0JT» E0JT.PST, IoT,ET, COR, HEND;* 00058300 T 0148 

— ********************************************************* 00058400 T 0148 C 

BEGIN 00058500 T 0148 

^ SIisLOC USER? DIJ-LINE; 00058600 T 0148 



o 



C 

c. 



( ; 



U 
O 

o 

& 
o 

I 

C.'j 

o 

to 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



END 



3cupsi ; ds:=7 chr; updd; % user»pni#pn2 

SI ; = SI+6;DS!=2 chr; DH»DI+2JX line no 

5(SiirSI+2j 2(DS5s2 CHR; nS : =L I T" 5 ") ; DSJ=2 CHR; 

DIlsDi+2);S 

DSJ=8 OEC; DUsDI+2; 

uPs T ;nss=5 chR;s 

oi »sDi-i5; ds;= 5 fill;? 

MAKEDETAILLINEI8! 



00058700 T 0148 

00058800 T 0149 

00058900 T 0150 

00059000 T 0152 

00059100 T 0153 

00059200 T 0153 

00059300 T 0l54 

00059400 T 0154 



$******************************************************** 

PROCEDURE DETAlL(USER»PNl»PN2»tiL»B0JT»EOJT»PSTtl0T»£T» 
C0R,HEND5lS 

VALUE USER>PN1»PN2»LUbOJT'EQJT»PSTMOT»ET»COR>HEND»* 
REAL USER>PNl»PN2,B0JT,E0jT.PST,I0T»ET»C0RtHEND»LL;% 
£*************************************************#****** 

BEGIN 



INTFGER I' 



blankoUTclInE);* 

MAKEDFTAlLLlNE(LlNE»USEHipNl#PNZ*LL»TlMER(BOJT MOD 5184000), 
TIHfRCEOJT MOD 5184000WIMERCPST)»TIMERCI0T)»TIMERCET)» 

cor,heNd);* 

IF I S=MaTCHCPN1,cPLRNM)>0 THEN cOMPlLstniBcOMPlLSCn + ll 
IF DETOfi THE^ 

PR!NTLiNe(LiNe.0NSITE)*2 
END DETAIL** 



00059500 T 0154 

00059600 T 0154 

00059700 T 0154 

00059800 T 0154 

00059900 T 0154 

00060000 T 0154 

00060100 T 0154 

00060H0 C 0154 

START OF SEGMENT ********** 

00060200 T 0000 

00060300 P 0001 

00060400 P 0004 

00060500 T 0007 

00060510 C 0008 

00060590 C 0014 

00060600 T 0014 

00060700 T 0016 

28 IS 20 LONG, NEXT SEG 



28 



% 


uco] 


! : - 


% 


UC11 


* : = 


% 


UC23 


} { B 


% 


UC33 


; ; s 


% 


um 


j }S 


% 


UE5] 


: s = 


% 


U [ 6 "J 


8 » = 


% 


urn 


• • — 

» * — 



COMMENT LAY UT oF THE USER MASTER RECORD;* 

USER 

CPU TIME 
1-0 TIME 

elapsed time 
cande cpu time: 
terminal time 

CORE 

DISK SPACE 

£************************ !>#********-**-.t : | 1 ***-A***-^*$$^ # -^-^ # ^^ #:(t)i(< . ijl!J1 + ^ ]) , 

PROCEDURE RePORTU(USeR.PST,iOT»eT.CeT»TT,cOR)i* 

value pst,iot,et»cet.tt,coR»user;j 

real pst»iot»et>cet,tt,cor»user;;s 

Comment outputs the report with user toals as 

the detail; 

«*** ********* ***************************** ****************************** 

begin integer i»j|x 

labfL eOf»xit;% 

define inputreadysequlvcmro],u) and not mergend*;* 

DEFINE MsMERGElNPUT*;* 

IF ulinectr GTr pagesize then PUTHEADER(USERPT); 

MA KEDETA I LL I NECUL I NE' USER, "CURRENT" '"TOTALS 



START 



00060900 


T 


0154 


00061000 


T 


0154 


00061100 


T 


0154 


00061200 


T 


0154 


00061300 


T 


0154 


00061400 


T 


0154 


00061500 


T 


0154 


00061600 


T 


0154 


00061700 


T 


0154 


00061710 


T 


0154 


00061800 


T 


0154 


00061900 


T 


0154 


00062009 


T 


0154 


00062100 


T 


0154 


00062200 


T 


0154 


00062210 


T 


0154 


00062300 


T 


0154 


of segment 


********** 


00062400 


T 


0000 


00062500 


T 


0000 


00062600 


T 


0000 


00062700 


P 


0000 


00062800 


T 


0002 



29 



C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
o 
o 
o 
o 

C) 



o 

O! 
O 
O 
O 

o 
=o 
lo 

G 
o 

LI. 

O 

o 
o 

o 
o 
o 
o 
o 
o 
o 
o 

o 

o 



(. 



1 



TIMfR(PST 
TIMfRCTT) 

printline 
blankoutc 

IF MERfiET 
DO BEGIN 

Until com 
if merget 
if eouivc 
begin com 

MAKE 
TIME 

TIME 

~MAl^E 

i > Tl H K 

TIME 

1T[0] 

end; 
write(upr 

IF MERGET 
THEM MCOJ 
IF SUMTOG 
CET,TT»I) 
GO TO XIT 

EOFlMERGENDt* 

XIT! 

fnd userptix 



n )l% 



) 'TIMER HOT WIMeRCET)>TIMER(CET)» 
»DECV(8»U = CC0R/10 24 )x(PST + I0T))#" 
(ULTNE»USERPT)JX 

: ul i ne > ; % 

"06 Then if inputreauy thfm 

READ(MERGEFILE»8,M[*])[e6f]J WRiTE(SUMF!LE»8.Mc*]) END 
lpARE(l»USER*MtO]){« 
'OG THEN 




OG THEN IF C0MPARE(1»M[0]#USER) AND M[0] NEQ 

?so;£ 

THEN WRITECSUMFILE»*»USER»PST»I0T»ET» 
t% 

a 
* 

true;* 



00062900 


T 


0003 


00063000 


T 


0006 


00063100 


T 


0011 


00063200 


T 


0013 


00063300 


T 


0014 


00063400 


T 


0017 


00063500 


T 


0027 


00063600 


T 


0030 


00063700 


T 


0030 


00063800 


T 


0033 


00063900 


T 


0033 


00064000 


T 


0035 


00064100 


T 


0039 


00064200 


T 


0045 


00064300 


T 


0046 


00064400 


T 


0050 


00064500 


T 


0054 


00064600 


T 


0059 


00064700 


T 


0061 


00064800 


T 


0061 


00064900 


T 


0065 


00065000 


T 


0068 


00065100 


T 


0071 


00065200 


T 


0088 


00065300 


T 


0095 


00065400 


T 


0095 


00065500 


T 


0096 


00065600 


T 


0097 


102 LONc 


> t 


NEXT SEG 



%********************************************************** 

BOOLEAN PROCEDURE OSINCSORTREC ) ; * 

ARRAY SORTRECCOl;* 
%********************************************************** 

BEGIN 

% , I .... , 

PROCEDURE J0B0N(U,Pl,P2,LL,M#T);a! 

VALUE U*Pi»P?>LL»M»TJB 

REA|, U»P1>P2»LL»M»TJX 

COMMENT USES PASSED PARAMETERS TO BUILD MIX TABLE ENTRIES? 



% 



BEGIN DEFINE MT=MIXTBL*J* 

MT[M»03:=U; IF LL = THEN MT[M#1Jj=0 else 
MTtMfl]J=DECV(2»L,L) & DEC VC5 > LLTBLC LL, 2 } ) [ 6 : 18 J 30 ] J % 
MTCM«23!=P1; MT[H,3];ssP2jS5 
MTtMt 4]lsT)X 
IF LL NEQ THEN 

LLTpLrLLi3] i*Ul% PUT IN USER CODE 
MIXARRYTMN] t=MlXARRYCMNJ+TJ 
MlXARRY[MN!=MN+n;=MlXARRYCMN]-n 
END JOBONJ* 



29 IS 



00065700 T 0154 

00065800 T 0154 

00065900 T 0154 

00066000 T 0154 

00066100 T 0154 

00066200 T 0154 

00066300 T 0154 

START OF SEGMENT ********** 

00066400 T 0000 

00066500 T 0000 

00066600 T 0000 

00066700 T 0000 

00066800 T 0000 

START OF SEGMENT ********** 

00066900 T 0000 

00067000 T 0006 

00067100 T 0014 

00067200 T 0019 

00067300 T 0021 

00067400 T 0022 

00067410 C 0025 

00067420 C 0027 

00067500 T 0030 

31 IS 31 LONG* NEXT SEG 



30 



31 



30 



c 
c 

c 
c 
c 
c 
c 
c 
c 

c 



c 
c 
c 
c 
c 
c 
c 
c 

c 



(" ') 



O] 
O 

o 
o 
o 
to 
p 

1 

o 

Li. 

to 

CJ 
O 

o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



2, 



PROCEDURE J0B0FF(S»LL»MIX»TIM,HEND);X 

value ll»mix»tim.hend;x 
real ll»mix,tim,hendjx 

ARRAY S[0m 

COMMENT CREATES SORT RECORD FROM PASSED INFO AND 
INFo IN MIXTABLUX 
{, „ , »,.,,,,.. 

BEGIN 

DEFINE M = MIXTBL#U 

MOVF(9#M[MIX^*3»5[*]);^ 
S[5]!=TIM;3! EOJ TlMc 

S[9]!sHEND»X HOW JOB ENDED tMAY BE PSeUdO 

clear(9.m[mix,*]);x clear mix table entry 

MIXARRYtMNJlaMlXARRYtMN]+TlMi 

mixarrycmni«bmn-i]*smixarrycmnj-timi 

end JOBOFF}* 



00067600 


T 


0000 


00067700 


T 


0000 


00067800 


T 


0000 


00067900 


T 


0000 


00068000 


T 


0000 


00068100 


T 


0000 


00068200 


T 


0000 


00068300 


T 


0000 


00068400 


T 


0000 


00068500 


T 


0000 


start of segment 


*r ^T <*r ^r ^r ^T T* HP *P *^ 


00068600 


T 


0000 


00068700 


T 


0002 


00068800 


T 


0003 


00068900 


T 


0005 


00068910 


C 


0007 


00068920 


C 


0009 


00069000 


T 


0012 


32 IS 13 L0NC 


■ » 


NEXT SEG 



32 



30 



procedure logoff < s. ll,offt»cet» boo * mend )*,% 

value ll#offt»cet»boo,hend*x 
Real ll»offt.cet,hend;% 
boolean boo;x 

ARRAY Sr03?S 
BEGIN * ••••••••...••••••• 

REAL U* 



XIT 

END 



label xit;x 

Stl3l«DECVCZ»LL) & DECV C5, LLTBL t LL, 23 ) C6; 18l 303 ;« 

St0]:=LLTBL[LL,0]; S[23;=" LINE &"JX 

S[3]:="CSE USE"; SC 4 3 J=LLjBL[ LL , l ] ; S[53:=OFFT; S[63isCETJ 

S[7]J=0? Sr83?= " "; S[93I=HENDI* 

FOR Il=0,t»3 DO LLTBLCLLm3J=0; 

LLTRLCLLf23laLLTBLtLL*23+t;s BUMP SESSION NO, 

IF BOO THEN GO X I T ; S 

LlNEARRY[NLJ!=LlNEARRY[NL3+OFFTj2 

LlNEARRY[NLj=NL"lJ;=LlNEARRYCNLJ-0FFT;2 

LOGOFFJ 



00069100 T 

00069200 T 

00069300 T 

00069400 T 

00069500 T 

00069600 T 

00069700 T 

00069800 T 

00069900 T 
START OF SEGMENT 

00070000 T 

00070100 T 

00070200 T 

00070300 T 

00070400 T 

00070500 p 

00070600 T 

00070700 T 

00070800 T 

00070900 T 

00071000 T 

00071100 T 
33 IS 47 LONG* 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
********** 

0000 
0000 
0006 
0010 
0016 
0020 
0033 

0037 
0038 
0040 
0043 
0044 
NEXT SEG 



33 



30 



% 



procedure l0g0n(ll»0nt»wh0)*x 
value ll»ont»whoi 



00071200 T 0000 
00071300 T 0000 
00071400 T 0000 



C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
o 
o 
o 
o 
o 
o 



o 



o 
o 
o 
o 
so 

I 

o 

iO 

-_; 
5 

o 
o 
o 
o 
o 



o 



o 

o 
o 
o 
o 

o 



real lu»ont»who;« 
«,, ,, , 

BEGIN Ll,T8L[LL»0] J=WH0; LL TBL[ LL» 11 5 =0NT ; Z 
LLTbL[LL#3JJsO| % SO WE KNOW HE LOGGED 
LlNFARKY[NL.]iaLlNEARRYcNL]+ONT;jl{ 
LINEARRYtNU«=NL+l] » = L I NEARRYC NL3-0N T I % 

END LOGONS 



IN 



DEFINE K«GTl#fS=S0RTREC*;2 

DEFINE W=L0GREC#J2 

DEFINE I-GT2#»M=MIXTBL#;2 

DEFINE HLTIME = C IF HLP = THEN BEGINTIME ELSE CHLQCHLP3 

+ 5l8/»OOOx(HLDATEtHLP3-FlRSTDATE)))#; 
LABEL RD»ONN»OfN#hL»DONEJ% 

labfl xxt*xit,bojr»eojr» filer »eojs? 
label mrclean,mragn»mrsclean»mrsagnjs 

SWITCH SWL»aRO»B0jR»EOjR» 

rd,rd,rd,hl»eojs,fil.er,qnn'ofn»rd,rd,rd»rd?s 
switch cleanswj-mrclean'mragn'mrscuean'mrsagn;* 
real l»ll»pni»pn?*userid;x 
integer tim»mix? 

BOOLEAN Bi% 
COMMENT ****** OSIN STARTS HERE ******* 
IF CLEANER OR HUNG THEN qO CLEANSWCK]? 

rd: if diskread then 
begtn closecdisk); 

CLEANERIsTRUE** 

GO TO MRCLEAN'56 
END; 

TlMs = (L:=LOGRECtOJ),TlMEF;3! 
TIM^TIM MOD 5184000? 
LASTIME t= TIM; 
MIX 5 =L.MIXF; LL{ = IF L,RL-F = 
GO TO SWL[L ( TYPEFl;X 

go jo rd) % type not handled 
bojr?comment boj Record? 

if ll=o then if not onsjTfTog t h en go rd else 

ELSE IF NOT TERMINAlTOG TrEN GO RD?% 

IF MCMIX.O] NEQ THEN BEgIN 

MIXARrY[mn]8=MIXArrYCmN3+TIm+LAPSE) 
MIXARRY[MNJ=MN-1 J;-MlXARRY[MN3 a CTIM+LAPSE) END; 

DO UNTIL SCAN="/ M J PNlj=ACGUM?% PROG NAME 1 

SCAN; PN2l = ACCUM|SS PROG NaMe 2 

IF SCAN NEQ V" THEN 

USERID»=IF LL-0 THEN "NO'uSfR" ELSE ACCUM FLSE 

begin scan; usfRid«=accum end?* user id 

J0B0N(USERID#PN1,PN2#LL»MiX,TIM+LAPSE)*X 
LAST I ME i =T I M? % 
GO TO RD?2 
EOJRJCOMMENT EOJ record; 

IF LL=0 THEN IF NOT ONSITETOG TrEN GO RD ELSE 

ELSE IF NOT TERMINAI.TOG THEN GO RD?* 

IF FQUIV(MCMlX,Ol»0) THEN 

BEGIN COMMENT NO BOJ'TRY TO SALVAGE DATA ELSEWHERE?* 



THEN ELSE L t LINEF?£ 
HERE BY SWITCH SWL 
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0000 


00071600 
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00071700 


T 
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00071800 
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0005 


00071900 
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0007 


000^2000 


T 


0009 


00072100 


T 


0012 



00072200 
00072300 
00072400 
00072410 
00072410 
00072500 
00072600 
00072700 
00072800 
00072900 
00073000 
00073100 
00073200 
00073300 
00073400 
00073500 
00073600 
00073700 
00073800 
00073900 
00074000 
00074100 
00074105 
00074110 
00074200 
00074300 
00074310 
00074400 
00074500 
00074600 
00074610 
00074611 
00074612 
00074700 
00074800 
00074900 
00075000 
00075100 
00075200 
00075300 
00075400 
00075500 
00075600 
00075700 
00075800 
00075900 
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C 
T 
T 
C 
T 
T 
T 
C 
C 

c 

T 
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0012 

0012 

0012 

0012 

0012 

0012 

0012 

0012 

0012 

0015 

0023 

0029 

0029 

0029 

0029 

0029 

0033 

0034 

0036 

0037 

0038 

0038 

0040 

0041 

0042 

0047 

0049 

0051 

0051 

0052 

0054 

0057 

0060 

0065 

0069 

0072 

0074 

0078 

0084 

0087 

0088 

0090 

0090 

0091 

0093 

0096 
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c 
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O 
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C 



c 



c 



( ;■ 

IF LI NEC THEN 00076000 T 0096 

;. USERIDl=IF EQUIV<LLTrL[LL.03.0) THEN "UNKNOWN" 00076100 T 0097 

Q J FLSF LLTBL[LL»03 E^Sf USERlDI» M UNKN0wN n ;a5 00076200 T 0101 r- 

no until scan=»'/"jpnu=accum; scan; pn2s=accum;is 00076300 t 0106 u 

J0B0NfUSERin»PNl»PN2,LL»MlX.TlM+LAPSE)J 00076400 P 0114 

r\ end sauveage;* 00076500 t 0117 

^ no until scanb"» m ;x 00076600 t 0117 

1)0 SCAN UnTIi, L « *ACCUm . [6 J 1 2 J = "EO" OR 00076700 T 0121 

O L*"DS" OR L="SY";S 00076800 T 0126 r 

^ JOBOKF(S»LL»MIX»TIM+LAPSE»lF L="DS" THEN "DS-ED " ELSE ACCUM)JX 00076900 P 0128 ^ 

GO TO XlTlX 00077000 T 0134 

p, ONN; COMMENT LOG ON RECORD; 00077100 T 0111 

u IF NOTCLINETOG OR TE R MjNALTOG) THEN GO RD; 00077200 T 0141 ^ 

DO UNTIL SCAN-NUMBERS 00077300 T 0142 

Hps IE LL = THFN GO TO R\))% ThRW AWAY SCHED STUFF 00077310 T 0146 

" w IF LlJBLtLL»0] NEQ ThEN 00077400 T 0i47 ( -- 

-- BEGIN COMMENT NOT LOGEED EE; 00077500 T 0149 

- c p l,0G0FF(Sn.L»TlM + LAPSE»0»FALSE» M ES-0N "); 00077600 P 0150 n 

C* L,0G0NCLL»T1M + LAPSE»ACCUM)J 00077700 P 0154 ( - 

! GO TO IF TERMlNALTOG THEN XIT ELSE RD;^ 00077800 T 0157 

END PSEUDO LOGOFF; 00077900 T 0161 

LOGON(LL»TIM+LaPSE»ACCUM); 00078000 P 0161 

I LaSTIMe«-TIM;X 00078100 T 0164 

2 GO TO RD;* 00078200 T 0165 

^" ofn: commfnt lo g off Record* 00078300 t 0168 ( ~ 

IF NOTCLlNFTOr, OR TERMlNALTOG) THEN GO R\)i% 00078400 T 0168 

O D0 UNTIL SCANbNUMBERV** 00078500 T 0169 r 

IF U.JBL[LL.O]bO THEN LOGoN(LL. T I M + LApSf, ACCUm) ; 00078600 P 0173 L ' 

Do UNTIL SCAN = "{"» 00078610 C 0178 

p LOGoFF(S.LL»TlM+LAPSE.6xNUMBERSCAN. FALSE." "}f 00078700 P 0182 

u Go TO IF TERMlNALTOG THEN XjT ELSE RQ}% 00078800 T 0188 ( - 

HLj HLQ[HLP:=HLP+13 J=TIMJ % 00078900 T 0192 

p HLDflTEtHLP3|s LASTDATE; 00078910 C 0195 ~ 

w IF CMN=0} AND CNL*0) THEN GO TO RD; * DOESN-T NEED CLEANING 00078920 C 0197 ( ~ 

HLING;=TRUE; GO TO MRcLEAN; 00078930 C 0199 

p GO TO R[>; 00079000 T 0203 - 

^ EOJSJCOMMENT gOj STAT RfCORD; 00079100 T 0203 C 

IF LLaO THEN IF NOT ONSITeTOG ThEN GO RD ELSE 00079200 T 0204 

p, ELSE IF NOT TERMlNALTOG TrEn GO RD;Z 00079300 T 0205 ~ 

w MCMlX.6]:=W[i]|Ji CPU TIME 00079400 T 0207 C 

MCMIX.7J !-WC23;X I TIME 00079500 T 0210 

n MCM IX. 8J :=Wt 33 j% CORE USED 00079600 T 0212 „ 

^ GO TO Hi)}% 00079700 T 0215 C 

FILER; COMMENT FILE STAT RECORD;* 00079800 T 0216 

n if llbo then if not onsitfTog then go rd e^se 00079900 t 0216 

{ - } ELSF IF NOT TERMlNALTOf, ThEN GO RDJ* 00080000 T 0217 C 

IF FQUIVCMrMlX.OUO) THEN GO TO H D J 5S CANT RECOVERING INFO 00080100 T 0219 

p MOVfc'I.M[MtX,OJ.ScO]);?! 00080200 T 0222 ~ 

S[41»cMCMlX,4]+l>2 00080300 T 0225 ( - 

M0VEC5»WtlJ»S[53)?X OOO8O4OO T 0229 



p S[9l;s=-ABSCSt9J)J% 00080500 T 0230 

w GO TO XIT;* 00080600 T 0232 ^ 

o 



MRCLtANi 00080700 T 0233 

COMMENT GENERATE PSEUDO L0G-0FFS FOR THOSE USERS STILL ON; 00080800 T 0234 

IF MOTCTERMINALTOG OR LJNeTOG) THEN GO MRSCLEANU 00080900 T 0234 ^ 

K !=2; I :=0J 00081006 P 0235 

MRAGNs 00081100 T 0236 p 

c 



o 

o 

o 
o 

u 

i° 

c 
o 

L_ 

IO 

LI 

c 

O 

s o 
o 
o 
o 



o 



o 
o 
o 
o 
o 
o 
o 

o 



IF T 5 = 1 + 1 GTR NUMLINES THF N GO MRSCL-EAN*« 

IF LLTnLtI»0] NE« THEN 

BEGIN L060KF(Stl,LASTlMt + LAPSt"»0»FALSE»»ES-OF "); GO XXT END ELSE 

begin comment he may not be logged inn 

LI.TBLCIM] ? = BEGINTIME?X ASSUME ON 

IF LLTBLCI»03 J=LLTBLCl»33 nEq THEN 

BEGIN LOGOFF(S^I»LASTlME + LAPSE»0»FALSE» ,, ESTIME ")J 

COMLINESJPCOHLINES+Il* 

GO TO XXT; * 
END ELSE GO MRaGNjX 
FNd LOqON CHECKfZ 

mrsclean; if not hliNg then BFGiN 

LTNEARRY[0]J=LiNEARRYrO]+LASTiME+LAPSE^ 

while linearryco]<o do linearry[Oj»=linearryco]+5i84ooo; end; 
comment generate pseudo eojs for jobs still running? 
if notconsitetog or terminAltoo then go done;* 

K:=4; I j=o;« 
MRSAGNi 

IF (I:=I+1) GTR MIXMAX THEN GO DONE;* 
IF MCI'OJ NEQ THEN 

BEGIN B » = CM[ I » 4 J LSS HLTIME); JOBOFF ( S> LL» I * LAST I ME + LaPSE * 
IF B THEN "HL-ED " ELSE " I N M I X "); 
GO TO XXT;X 
END PSEUDO EOJ eL-SE GO MRsAGNJX 
00Ne» IF NOT HLlNG THEN BEGIN 

MiXARRYrOjlcMiXARRY[0] + LASTlME + UPSE» 

while mixarry[0]<o do miXarrycoj;=mixarrycO]+5i8400o; end; 

K!=l!s05? 

IF NOT HLING THEN OSIn:=TrUe; HL I NG 5 -FALSE; 

60 TO XXT;S 

LASTlMElsTlMI* 



X IT 

XXT 

END 



osin;2 
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00081400 


P 


0241 


00081500 


T 


0249 


00081600 
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00083000 
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00083200 
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00083300 
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00083310 
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00083400 
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00083500 
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00083600 
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00083700 
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00083800 


T 
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00083900 


T 


0315 



procedure osoutcngdata»sortRec>; 
value nodata;x 

BOOLEAN N0DATA; ARRAY SoRTREC[0]J* 

BEGIN 

DEFINF TPSTbGT2#, % ACCU M REPORT CPU TIME 



TlOTsGT3#» % 

TET =GT4#, % 

TC0R=GT5#> % 

UPST=QT6#, % 

UI0T=GT7#» % 

UET sGT8#» % 

UC0R=GT9#» % 

SPSTbGT10#» % 

Sl0TsGTll#. % 

SET =GT12#» % 

SC0R=GT13tf» % 



ACCUM REPORT I"0 TlM£ 

ACCUM REPORT ELAPSfD TIME 

ACCUM REPORT CQRE(WDS) 

accum user cpu time 

ACCUm user i-o time 

accum user elapsed time 

ACCUm USER C0RECWDS) 

ACCUm session CPU TIME 

ACCUm SESSION I"0 TIME 

ACCUm SESSION ELAPSED TIME 

ACCUM SESSION CORECWDS) 
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00084000 T 0154 

00084100 T 0154 

00084200 T 0154 

00084306 T 0154 

00084400 T 0154 

0008450& T 0154 

00084600 T 0154 
START OF SEGMENT ******** 

00084700 T 0000 

00084800 T 0000 

00084900 T 0000 

00085000 T 0000 

00085100 T 0000 

00085200 T 0000 

00085300 T 0000 

00085400 T 0000 

00085500 T 0000 

00085600 T 0000 

00085700 T 0000 
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o 



i );1 r 

PPST=GT14#> 2 ACCUM PROGRAM CPU TIME 00085800 T 0000 L 

y~ "- PI0T = GT15#» % ACCUM PROGRAM I-Q TIME 

O I PET =GT16#, % ACCUM PROGRAM ELAPSED TIMe 

w PcORbgT17#, % ACCUM PROGRAM CORe(WDS) 00086100 T 0000 L 

_. NU _ oTl e#, % NO, OF USERS 

O NR B GT 1#> * R E C NO, 00086300 T 0000 r . 

w NJ -GTl9# * NO* OF JOBS PROCESSED 00086400 T 0000 <- 

J* 
r ^ DEFINE S=SORTREC#jX 

^ DEFINE H=HOLDKfY#;X 000H6700 t noon C 

INTEGER PST» IOT»ETJ:« 

p INTEGER CQR;X 

LABF*L DET»FILE0ET»XHRU;X 00087000 T 0000 <~ 
IF NOT NODATA THFNX 

^O BE6TN COMMENT DATA CASeJS 

if (NRs=nr+i) = i then go to detjs 00Q87366 t oooi ( ~ 

> IF NOT EQUAL(4»Sco]ihOLUKEY) THEN 

q REGlN COMMENT SUmmAR^e LAST PROG DATA; 00087500 f 0005 ^ 

LEVELCPR0GRAM»PpST»Pl0T»PET»PC0R)iZ nnnn7Ann r nnnt, C 

SPST8=SPST + PPST; S I0T j=SI0T + PI0T; 

SETssSET+pET; ScOR ; =SC0R+PC0RJ wv,„ u , H »v . w* w 

CUEARC3»PPST)lX 00087900 T 0013 C ~ 

g IF DETOG THEN BEGIN 

5q WRITECPRNTIDBL3); L I NECTR ? = L I NECTR+2; % 

^ END 0008A010 r 0020 i — 

end last prog e l se go det;x 

IF NOT EQUAL(2,S[0],hOLDKey> THEN „.„ M „ CWW , WMtv 

BEGIN COMMENT SUMMARIZE LINE DATAJX 00088300 T 00?? C 

IF Sn 3 • t 361 123 NEQ T H EN TSeSS I ONS : =TSESS I ONS+ 1 J 
LEVEL(SESSl0N»SPSTfSl0T»SET»SC{)R);* 
UpSTt=UpST+SpST; UIOT ;=U IOT+S IOTJ * OOO88SO0 T 0028 C 

UCORI-UCOR+SCOR; UET !=UET+SET; % 
n SPLITCIF H[13.t36tl2J«0 THEN ELSE 1);X „_„,„„ , MW .. 

CLEAR(3»SPST);X 00088800 T 0036 C 

IF DETOG THEN BEGIN 

WRITE(PRNTCDBLJ); LINeCTR?=LINECTR+2;X uuu^pvuw i uu^o 

END 00088910 r 0043 C 

END LINE SUMMARY ELS F GO DET5X 

O ir N0T EQUIV(H[0],S[03) THEN _„, 1 _„ , „ w _ 

BEGIN COMMENT SUMMARISE USfR DATA? 00089?00 T 0045 C 

LEVELCUSER»UpST,UjoT,UET.UCoR)J?; 



E 



IO 



u 
O 
O 

o 



n REP0RTU(H0L0KEYC01»UPST»UI0T» 

-- UtT»UcTiUTT»UCOR)J *> 

TPST|sTPST+UPST|TI0T|bTIOT+UI0T 

q tet;=tet+uet;tcoR{=tcor+ucor; 



RTT 8= RTT+UTT; RCT {= RCT+UCT;% 00089710 T 0055 C 



UTT := UCT :« 0;X 
q cLEARC3fUPST); 



OSUSeRSIsOSUSeRS+OSUSe; OSUSE»=0;x 00089810 T 0060 O 

remusersi=remuseRs+remuse; REMUSE?=OU 



o 



r\ nu;=nU+jJ^ 

^ IF DETOG THEN 

- ~ PUTHEADERCONSITE)!* 

r , END USER SUMMARY}?; 

U OET: COMMENT PREOCESS DETaH, RECORD** 00090200 T 0066 O 

IF LINECTR GTR PAGESlZE THEN PUTHEADFRCONSITE) J 

q IF SIGNf SC91 5=«1 THEN GO FILEDETJ* „„„„. ,,„„ , wv „, 

O r; 
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00089400 


T 


0047 


00089500 
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00089900 


T 


0064 


00089990 


C 


0065 


00090000 


T 


0065 


00090100 


T 


0066 


00090200 


T 


0066 


00090300 


P 


0067 


00090400 


T 


0069 



c 



o 
o 

o 
o 

> 

p 

c 
li_ 

lo 

D 

u 
u 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



TF SCn,C36sl?]=0 THEN BEGIN 

osjobs:=osjobs+i; 

IF CS[2]="LDCNTRL") AND CS[3J="[)ISK ») THEN 
PACKETS«»PACKe:TS+1 
FND 

ELSE TUJ0BSJ*TUJ0BS+, \% 
MJJaNJ+UX 

DET A IU S C 3 » S t 2 J » S C 3 ] » S C I J > S U J » S [ 5 3 » PST 8 =S [ 6 :) » 
IOT:=S[73»ET?=St5]-S[4]»CORJ-Sl8]»S[93); 
rOMMfNT ACCUM PROG TOTALS;* 

if s[3] - "c&e use" then begin 

uttibutt+et; uctisUct+pst end 
else begin 

PE.Tj=PET + ET; ppst ; =ppst + pst; PIOTj*PIOT + IOTJ 
PCORJBPCOK+COR ENp} 
MOVE(5»S[03»hOUDKe:Y);X 

go thRu;s 
filfdftj 

filedetail(s)u 
end data case else 

BEGIN COMMENT NO DATA CASf»X 

IT SUMTOG THEN LOCK C SW I LE ) J % 
LEVEL<PR0GRAM'PPST>PI0T»PET»PC0R);S 
IF DETOG THEN 

WRITECPRNUDBUm 

spstt=spst+ppstj siot!=siot+piot{ 
setj=set+pet; scori=scor+pcor»x 

TF HCU.[36S12] NeQ THE'N TSESS IONS J=TSESS jONS+l > 
LEVEL(5ESSjON^SPST»SjOT»SET»SCOR);x 

if detog Then 

writecprnt[dbl])j3 

% ELIMINATE A STUPID LINE OF CODE 
SPLlTtIF HC13,C36:12]=0 THEN ELSE 1)J2 

upst;=upst+spsi-; uiot:=uiot+siot; 
uetj=uet+set; ucorj-ucor+scori* 
levelcuser»upst»ui0t«uet»uc0r)jx 

REPORTUCHQLdKeY[03»uPST»UIQT»UET» 
UCT»UTr»UCOR)l* 

if detog then 

writecprnt[dblj)1x 

TPSTJsTPST+UPST; tioti b tiot+uiot» 
tetj=tet+uet; tcor:=tcor+ucor; 

RTT|aRTT+UTT; RCT J-rCT+UCT ; 
oSUSERS:=oSUSERS+ SUSE; remusersibremusers+remusei 

MU$B|\jU+i;X 

level creport>tpst»tiot,tet.tcqr); 
cLearC7»upst);« 
end nodata case? 

THRU: 

end OsOuTJ% 
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00090510 
00090520 
00090540 
00090550 
00090600 
00090700 
00090800 
00090900 
000,91000 
00091100 
00091U0 
00091120 
00091130 
00091200 
00091300 
00091400 
00091500 
00091600 
00091700 
00091800 
00091900 
00092000 
00092090 
00092100 
00092200 
00092300 
00092310 
00092400 
00092490 
00092500 
00092510 
00092600 
00092700 
00092800 
00092900 
00093000 
00093100 
00093190 
00093200 
00093300 
00093400 
00093410 
00093420 
00093500 
00093600 
00093700 
00093800 
00093900 
00094000 
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0074 
0075 
0078 
0078 
0079 
0084 
0085 
0089 
0094 
0094 
0095 
0098 
0100 
0103 
0105 
0106 
0107 

oioa 

0109 
0109 
0109 
0112 
0114 
0114 
0118 
0121 
0123 
0127 
0128 
0129 
0133 
0133 
0137 
0139 
0142 
0143 
0145 
0146 
0146 
0151 
0153 
0156 
0158 
0161 
0162 
0164 
0165 
0165 
0165 



BOOLEAN PROCEDURE OSCOMP C A, B ) ; % 
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00094200 T 0154 
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ARRAY A»B[0]J 

OScOMpjsif EQUALC4,AtO]|Bt03) ThEN AC4] Le« 8[43 
FLSE C0MPARE(4,A[0]»B[0]);x 



%********** + ***********#*****************************„,„.,„ 

PROCEDURE OSVAL(A); 

ARRAY AtOliX 
X******************************************************* 
FILL A C* 3 WITH 0CTl4141414l4l414l4f0CTl<U41414l4l4l4l4» 

OCTJ41414J. 414141414, 0CTl4l4l414l4l414l4» 
0CT1414141414141414;* 



00094300 T 0154 

00094400 T 0J.54 

00094500 T 0154 

00094600 T 0158 



00094700 
00094800 
00094900 
00095000 
00095100 
START OF SEGMENT 
00095200 



T 0165 

T 0165 

T 0165 

T 0165 

T 0165 

********** 

T 0167 



35 



3>******************************************************* 

PROCEDURE OSFINALIX 

X****************************************************.^^ 

BEGIN 

OEFfNE PST « GT2#, % CPU TlME 

iot B gT3#/i x i-o time 

ET = GT4#i X ELAPSFD TiME 

NJ = GTi9#, % NO, OF JOBS PROCESSED 

NU « GTl8#; % NO, OF USERS 

LABEL AGAIN»% 

REAl WALLT) % WALL CLOCK TIME 

INTEGER P1»P2»H# l2»Ei,E2fX 

BOOLEAN TUTOG>% 

LIST TlHELlSTCpiiPZ.Il,l2,El»t2);i8 

FORMAT F1C"N0, OF JOBS PROCESSED WAS 5 ">I6»X2» 

"NO, OF USERS WAS { l M6))X 

FORMAT F2("T0TA^ T iMES'MoC * , M ) » 3 ( a3> a5. X3 ) 3» 

F3( W PERCENTAGES(T I HE/ET )•»,«.«, 3 (F8.2.X3)). 

F4CAVERAGES PER JoB ". 3C A3p A5» X3 ) ) , 

F5CAVERAGES PER USER. . . , », 3( A3 , A5 , X3 ) ) ; % 

format F6{X2?»"Cpu».xe>"i-o»»X9»"ET");x 



FORMAT F7C" ***** A LL JOBS * * * * » M )jZ 



FORMAT F8(" ***** REMOTE JOBS * * * * ♦ ");* 



FORMAT F9(» ***** ONSjTe JOBS * * * * *»)J£ 



********** 



00095300 T 0167 
35 IS 5 LONG* NEXT SEG 



00095400 T 0168 

00095500 T 0168 

00095600 T 0168 

00095700 T 0168 

00095800 T 0168 
START OF SEGMENT 

00095900 

00096000 

00096100 

00096200 

00096300 

00096310 

00096400 

00096500 

00096600 

00096700 
START OF SEGMENT 

00096800 

37 IS 15 LONGi 

00096900 
START OF SEGMENT 

00097000 T 0012 
00097100 T 0012 
00097200 T 0012 

38 IS 49 LONG. NEXT SEG 

00097300 T 0012 
START OF SEGMENT ********** 

39 IS 9 LONG. NEXT SEG 

00097400 T 0012 
START OF SEGMENT ********** 

40 IS 8 LONG. NEXT SEG 

00097500 T 0012 
START Of SEGMENT ********** 

41 IS 9 LONG, NEXT SEG 

00097600 T 0012 
START OF SEGMENT ********** 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0012 
********** 

T 0012 
NEXT SEG 

T 0012 

********** 
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37 



36 



38 



36 

39 
36 

40 
36 

41 
36 

42 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
o 
o 
o 
o 
o 
o 
n 



u 
p 
o 
o 

o 

o 



:«Q 
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FORMAT FIOCTOTAL CANOE TIME ".A3»A5." TOTAL TERMINAL TIME ". 

A3»A5»" T-S SESSIONS"* 15." CONIMECT/SESS ION" , A3. A5 ) ; 
FORMAT FUC'COMPILATIONS'MS); FORMAT F 12C A2, A5» " : » , I 5* F8 , 2, "%" ) J 

format fu ("wall clock Elapsed time ".A3.as)> 
format f14 ("percent of w a llt i me , . "» 3( ffi , 2>x3 ) ) ; 

WaLLTJ=LASTIME-BEGINTIME+LAPSE; STIMER(WALLT»E1»E2)I 
WRlTECPHNTtDBL3,Fl3#El»E2)J 
WRITE(PRNTCDDL3»F7)J« 
AGAIN! 

WRrrEcPRNTCDBL]»Fl»NJ.NU);X 

WRITE(PRNT[DBL]»F6)J!6 

STlHER(PSTtpi#P2)» ST IMER( lOT » I i . 12 ) I 

STImER(ET.E1.E2)J 

WRITE(PRNTCDBU»F2iTIMELIsT)»S 

WRITE(PRNT[DBL]#F3»100xCPsT/ET)»100x(I0T/F7)#100);X 

WRITE(PRNTCDBL]*fH»100xPsT/WaLLTMOOxIOT/WALLT»100xET/WaLLT)J 

ST!MER(PST/NJ,Pi»P2)i ST I MERC I T/NJ, 1 1 » I 2) ; X 

STIMERCET/NJ,E1»E2)JX 

WRlTEfPRNT[DBL]tF4.TIMELIST)U 

STimERCPST/nU»Pi,P2); STlMER(IOT/NU#Ut I2);X 

STImER(ET/NU.E1#E2)I* 

WrITE(PRNTCOBL3»F5»TIMEUIST)»X 

WRlTECPRNTfDBL])|2 

IF ONSITETOG THEN 

BEGIN COMMENT ONSITE TOTALS; 

WRITEfPRNT[DRL]#F9)JX 

ONSITETOg*=faLSE;25 

psti=pstotaLs[o];x 

IOTSsiOTOTALS[03;3! 

et s= etqtalS[Oj;js 

njj=osjobs;x 

nu**osusersj£ 

go again;* 
end onsite totals;* 
if terminaltog then 
if not tutog then 
begin comment remote totals;* 

tutog:=truej* 

writecprntcdbu»f8)is! 

pst;=pstotaLsci];x 

I0T; = I0T0TALS[1]J2! 

et ?= etotalS[UJ3; 
njj=tujobs;% 
nU:=remusers;x 
go againu 

END 



42 IS 9 LONG. NEXT SEG 

00097610 C 0012 
START OF SEGMENT ********** 

00097620 C 0012 

43 IS 23 LONG. NEXT SEG 

00097630 C 0012 

start of segment ********** 

44 IS 6 LONGi NEXT SEG 

start of segment ********** 

45 IS 9 LONGi NEXT SEG 

00097640 C 0012 
START OF SEGMENT ********** 

46 IS 9 LONG. NEXT SEG 

00097645 C 0012 
START OF SEGMENT ********** 

47 IS 11 LONG. NEXT SEG 

00097690 C 0012 

00097695 C 0016 

00097700 T 0027 

00097800 T 0030 

00097900 T 0031 

00098000 T 0040 

00098100 T 0043 

00098200 T 0045 

00098300 T 0047 

00098400 T 0050 

00098410 C 0065 

00098500 T 0081 

00098600 T 0084 

00098700 T 0086 

00098800 T 0089 

00098900 T 0093 

00099000 T 0095 

00099100 T 0098 

00099200 T 0102 

00099300 T 0102 

00099400 T 0103 

00099500 T 0106 

00099600 T 0106 

00099700 T 0107 

00099800 T 0108 

00099900 T 0109 

00099910 T 0110 

00100000 T 0111 

00100100 T 0111 

00100200 T 0111 

00100300 T 0112 

00100400 T 0113 

00100500 T 0113 

00100600 T 0114 

00100700 T 0117 

00100800 T 0118 

00100900 T 0119 

OOlOlOOO T 0120 

00101010 T 0121 

00101100 T 0121 

00101200 P 0122 
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ELSF BEGIN ST IMERCRCT. PI , p2) J ST I MER CRTT»E 1 »E2) ; 
STlHER(RTT/TSESSlONS,U#i2)> 

WRlTE(PRNT[DBLj,nO»Pi»PZ>El»E2»TSESSlONS#Ilf 12) END; 
C0MPiLSc6]»aC0MPlLS[6]-C0MPlLSc8]» % DON-T DOUBLE COUNT PASCAL 
MIXaNA? IlJaOl FOR 125=1 STEP 1 UNTIL CPLRNM[0] DO 

I t ;=I l+COMP ILSC 123 ; 
WR1TE(PRNTCDBL]»F11»11)J FOR Pt»=l STEP 1 UNTIL CPLRNMC03 DO 
WRlTE(PRNT»Fl2#CPLRNMtPl].[6»12]»CPLRNM[Pl].C18l30]» 
I2:=C0MpILSCPl]» 100x12/1 l)i 



END OSF'lNALjX 



0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 



1210 
1220 
1221 
1222 
1224 
1226 
1230 
1240 
1241 
1300 



% % % % % 

comme 
%%%%% 

COMME 

% 

% 

% 

% 

% 

% 

% 
%**** 

BOOLE 

C 

%**** 

BEGIN 

D 



nesTPAre, iJAllt, ps-totalsOI, e-rarAcstpl, pvroTm^C'X etotalsOI, 
OSJo&SjOSOsais/r sessions, R.€kkusc-r.£», 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
NT :!JS: SECTION - 06 - DISK LOGGING ti:il}% 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
NT LAYOUT OF THE DISK LOGGING SORT RECORD* 

SCO 3 ::= USER ID 

SCI 3 : i- MFIO 

S 1 2 3 : $ = FID 

SC 3 J J:= CREATION DATE 

S[4] J 8 = CREATION TIME 

Sf 5] :;= log-off TiM r 

S[6] : := NO OF DISK SEgS 

************************************************** 

an procedure dlin(s); array s[0]; 
omment formats the disk sort record; 

************************************************** 

EFfNE l=logRec#;% 



0122 
0125 
0127 
0142 
0146 
0151 
0153 
0165 
0175 
0164 



36 IS 189 LONG* NEXT SEG 



LA8 
GET 



REAL 
EL GET 

IF Dl 
IF LO 
DO UN 

sen*. 

DO UN 
5C2]5 

scan; 
SC53: 

scan; 

DO UN 

S[3]i 

ELSf 

SCAN2 

SC3]5 

ELSE 

SCAN? 

T: = 2l 

T:=T + 

Tj = t + 

T ;sT+ 



t;x 

» X I T ; i« 

SKREAD THEN BEGIN 
GRECCO] t TYPEF ne« 

til scans"/";* 
=accum; 

TIL SCAN="/ rt jX 
sACCUM; 

Sto3t=ACCUM; 
"LtoJiTlMEFJ » 
SC6]f*NUMBERSCANj 
TIL SCAN = 'V"; 
= IF ACCUM,U2'63=^ 

accum; 



dlin:=true; go x it 
dlog then go get;x 

% MFlD 



end; 



% 
% 



fid 
user id 

LOG"OFF 



time 



THEN (0&ACCUM[12S6;6]) 



XIT 



=IF ACCUM.[12 ! 6]s" " T H EN(S[33&ACCUM[24S6!6]) 

(S[3.]&ACCUM[18I6M2])*X 

S[335sS[33 & ACCUMC30565123;* ANO YEAR 
6000xNUMBERSCAN;» HOURS 
3600xNUM8ERSCAN;* minutes 
60xnUMBERSCAn;* seconds 

NUMBERSCANIX 1/60 SECONDS 



00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
START OF S 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 



101400 
101500 
101600 
101700 
101800 
101900 
102000 
102100 
102200 
102300 
102400 
102500 
102600 
102700 
102800 
102900 
103000 
EGMENT 
103100 
103200 
103300 
103400 
103500 
103600 
103700 
103800 
103900 
104000 
104100 
104200 
104300 
104400 
104500 
104600 
104700 
104800 
104900 
105000 
105100 
105200 
105300 
105400 



0168 
0168 
0168 
0168 
0168 
0168 
0168 
0168 
0168 
0168 
0168 
0168 
0168 
0168 
0168 
0166 
0168 



********** 



4a 



0000 
0000 
0000 
0000 
0002 
0004 
0008 
0009 
0013 
0014 
0016 
0020 
0025 
0028 
0031 
0033 
0037 
0041 
0043 
0048 
0051 
0054 
0057 
0060 
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end dun; 



48 IS 



00105500 T 
66 LONG. 



0061 
NEXT SEG 



X******************************************************* 

PROCEDURE DVAU/O; ARRAY A [ J ; 

X******************************************************* 
EILL A C * 3 WITH OCT 1 41 414 14 14 14 U » OCT 1 4 1 414 14 14 14 1 4» 

0CT14141414141414;X 



START 



00105600 
00105700 
00105800 
00105900 
OF SEGMENT 
00106000 



0168 
0166 
0168 
0168 



********** 
T 0169 



49 



49 IS 



3 LONG* NEXT SEG 



X****************************************************** 

BOOLEAN PROCEDURE DC0MP(A,B)l ARRAY A,B[0]l 
X********************************************************** 

DC0MPI«C0MPARE(3#A[01tB[0])IX 



X********************************************* ** ******* 

STREAM PROCEDURE MaKED I SKLEVELCL I NE , ASTER I SK, LEVEL* 

SEGS»MTHS#0AYS#TIM);X 

VALUE ASTERlSK,LFVEL»SEGS,MTHS#DAYS»TlM;3 
■g *************** ******************************************** 

BEGIN 

LOCAL DA IX 

DPbLINEI DII=DI+33IX 

sissloc asterisk;* 

2CUpSI;UpDI; DS:=7 CHrj;X 

OSjsIZ LIT « TOTALS «;X 

UPDU DAS-DI; DSJ-8 CHrjX No SEGS 

DI:=DI+3jX 

5lt=SI+6; DSl=2 CHR; DS:-L IT" l" ;% MTHS 

SIIbSI + 6j DS:=2 CHR; DS s =L I T"- w J % DAYS 

sij=si+2j 2(dsj=2chr; ds»=lit"j m ); ds;=2 
di »=da; DS'=6 pjLLIX 
END MAKfDjSKLEVELU 



00106100 T 0170 

00106200 T 0170 

00106300 T 0170 

00106400 T 0170 



chR;x time 



00106500 


T 


0175 


00106600 


T 


0175 


00106700 


T 


0175 


00106800 


T 


0175 


00106900 


T 


0175 


00107000 


T 


0175 


00107100 


T 


0176 


00107200 


T 


0176 


00107300 


T 


0176 


00107400 


T 


0176 


00107500 


T 


0178 


00107600 


T 


0179 


00107700 


T 


0180 


00107800 


T 


0180 


00107900 


T 


0181 


00108000 


T 


0182 


00108100 


T 


0184 


OO1O82OO 


T 


0185 



x*****************************************************^^,,, 
procedure d i sklevel( which* segs » mths, days, t i m);x 

value -which»segs»mths*days»tim;x 

real. which*segs#mThs»days»tim;x 
x********************************************************* 

BEGIN 

intfgeR t; 

FORMAT Fl (A2.A5)! 



00108300 
00108400 

00108500 
00108600 
00108700 
00108800 
00108900 

START Op SEGMENT 
00108910 

START Op SEGMENT 



T 0185 

T 0185 

T 0185 

T 0185 

T 0185 

T 0185 

T 0185 
********** 

c 0000 

********** 
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END 



BLANKOUTCLlNEm 

MAKEDISKLEVEL<LlNE»ASTERlSK£WHICH-2J.LEVELARRY[WHICH]. 

DECV(fl»T}=SEGS)'0ECVC2.T:=MTHS).DECV(2»T;=DAYS)» 

TIMeRCTIM) );X 

IF WHICH = USER THEN 

WRiTECPRNTtNOl.Fl »HOLDKfYC03,[6| 12 J,H0L0KEY[0].C 181 303 )> 
PRINTLINe(LiNe.DISKRPT);X 
DISKLEVELJ2 



51 IS 5 LONG. NEXT SEG 50 

00109000 T 0000 

00109100 T 0001 

00109200 T 0003 

00109300 T 0009 

00109310 C 0010 

00109320 C 0011 

00109400 T 0024 

00109500 T 0025 

50 IS ?8 LONG. NEXT SEG 2 



X********************************************************* 

STREAM PROCEDURE MAKED I SKDET A IL( L I NE« A. CT I M. LT I Mi SEGS. 
M»D,T);S 

value ctim»ltim*segs»m»d»t;s 

********************************************************** 
BEGIN 

LOCAt DA;* 

di?=LiNe; sitaA;x 

3(UPSp DS:=7 CHR* l>I*«DU2m 

upsi; 2(DS!=2 chrj ds»=lit »/•»); osj=? chr; 
siibloc ctim; 

2(51:551+2; DI?=DI + 3; 2(DSta2 CHR; DS t *[, I T" 8 » ) ; DS:=i2 CHR)J2 

Dl!=0I+5; OAS-D I ? DS t =8 chR; D I s =0 I + 3; 2 

SI »=SI+6;DS s~ 2 CHR; 0Sl a LlT"l B ; 

SU=SI+6; DSI S 2CHRJ 

DSlsLlT"-";* 

siisSi+2i 2cds?=2 chr;dsj=lit».'»); ds;=2 chr;* 

DltsDA) DS»s6 FILL;* 
END MAKE DISKDETAIL;* 



%******** **************************** ********************* 
PROCFDURE DISKdeTAIL(SORTReC.MThS.DAYS.TIM);X 

VALUE MTHS.DAYS.TlM; 

«EAL TlMI INTEGER MTHS,DAYS;2 

ARRAY SQRTRECcO] J£ 

*********************************************************** 

BEGIN DFFlNf A^SORtRfc* ; 

INTEGER \}% 
8LANK0UT(LlNE)»X 

MAKEDISKDETAILCLINE.A.T IMERCAU]).T1MERCA£5]). 
DECV(R»I J-A[6J).DECV(2.MTHS).DECV(2»DAYS)» 
TIMERCTIM))?* 
IF DETOG THEN 

PRINTLINECLINE.DISKRPT);* 
END DISKDETAIL;* 



START 



00109600 
00109700 
00109800 
00109900 

oouoooo 
oonoioo 

00110200 
00110300 
OO11O4OO 
OO11O5OO 
OOH0600 
00110700 
00110800 
00110900 
00111000 

00111100 

00111200 
00111300 
00111400 



00111500 
00111600 
00111700 
00111800 
001H900 
00112000 
00H2100 

of segment 

00112200 
00112300 
00112400 
00112500 
00112600 
00112690 
00112700 
00112800 



T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 

T 
T 
T 
T 
T 
T 



0185 
0185 
0185 
0185 
0185 
0185 
0186 
0186 
0186 
0187 
0189 
0189 
0192 
0193 
0194 
0194 
0195 
0197 
0197 



0197 
0197 
0197 
0197 
0197 
0197 
0197 



********** 
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0000 

0001 

0004 
0009 
0010 
0011 
0013 



52 IS 16 LONG. NEXT SEG 
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%********************************************************* 

PROCEDURE DLOUT(B»A)IX 

VALUE BJ3! 

BOOLEAN BJ X TRUE IF LAST REC PROCESSEE 

ARRAY ACO]; % SORTED DISK LOG RECORD 
%******************************** :i< *****************,!,******* 

BEGIN LABEL DETtTHRUj 



LABFL BRK{? 

DFFfNE RPTMO 
RPTOA 
RPTDT 
RPTDS 

USERMO 

USERDA 

USERDT 

USERDS 

NF 

NU 



START 



= r,T6#,s accUM Report MONTHS 

= GT7#,% ACCUM REPORT DAYS 

s GT6#,% ACcUm REPORT TIME 

= GT9##56 ACCUM REPORT DISK SEGS 

sGTiO#tX ACcUm USER MONTHS 

= GTU#»S ACCUM USER DAYS 

=GT12#»* ACcUM USER TIME 

= GTU#»* ACCUM USER DISK SEGS 

=GT14#»* NO, OF FILES PROCESSED 
NO OF USERS 



DET;s 



=GT15*!S 

real cdate»ctime»ldate#utiMe;x 
intfgeR mths»days; 
Real z»t;s 

IF(NF»=NF+1) = 1 THEN GO TO 

IF B THEN Go BRKU 

IF NOT EQUALC1»A[03#H0LDKeY) THEN 

BEGIN XNEW USER OR END OF REPORT 

BRKj 

USERDA+USEROA+USERDT DIV 5184000; 
USERDT*USERDT MOd 5184000; 

useRmo*usehmo+userda OlV 3i; 

USERDA*USEROA MOD 31; 

IF LlNECTR GTR PAGESiZE THEN PUTHEADER(DISKRPT)? 

DISKLEVEL (USER »USERDS 'USERMO »USERDA>USERDT);X 

RPTMOIsRPTMO+USEHMOl RpTDA ! -RPTDA+USERDA ; * 

RPTUT!=RPTDT+USERDT; RpTDS j =RpTDS+USERDS ; % 

CUEAR<3»USERM0)lX 

IF NOT B THEN 
REGIN NUs~NU+l; GO DET END? 
END USER TOTAL ELSE GO TO DETJ* 
COMMENT END Of REPORT? 
RPTda'ibRPTDA + RPTDT DIV 5184000;% 
RPTdTJbRPTOT MOD 5184000;% 
RPTHOiaRPTMO+RPTOA DIV $\i% 
RpTDA!=RprDA MOD 3 1 ; 56 

DISKLFVELC REPORT > RPTDS* RPTMO' RPTDA* RPTDT )}% 
GO THRUjg 
DET}CDATE?=AC3l; 

LDATES=MpiD & CDATE C 30 f 30! 12 J ;* 

if ltimes=a[5] lss ctime$=a[4j then zj = 1u 

if llnectr gtr pagesize then putheaderc d i skrpt) ; % 

diskdetailca. 

MThS«*0CV(LDATe»2)-0CV(CDaTf*2), 
DAYS5=0CV(LDATE#4)»0CV(CDaTe»4)» 
T*»lTIME+Zx5]84000-CTIME)jX 
USErMO?=USErmO+MTHSj USERDA 5 =USERDA+DAYS; 
USErDT{=USErDT + T; USErDS;-USERDS+AC6] 1% 
HOLDKEYtQ] :=AC0JJ* 
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0000 


001 


13900 


T 


0000 


001 


14000 


T 


0000 


001 


14100 


T 


0000 


001 


14200 


T 


0000 


001 


14300 


T 


0000 


001 


14400 


T 


0000 


oot 


14500 


T 


0000 


001 


14600 


T 


0000 


001 


14700 


T 


0000 


001 


14800 


T 


0000 


001 


14900 


T 


0000 


001 


15000 


T 


0000 


001 


15100 


T 


0002 


001 


15200 


T 


0003 


001 


15300 


T 


0005 


001 


15400 


T 


0006 


001 


15500 


T 


0007 


001 


15600 


T 


0008 


OOj 


15700 


T 


0010 


OOj 


15800 


T 


0011 


001 


15810 


C 


0013 


oot 


15900 


T 


0015 


001 


16000 


T 


0016 


001 


16100 


T 


0019 


001 


16200 


T 


0021 


001 


16300 


T 


0022 


001 


16400 


P 


0023 


001 


16500 


T 


0027 


001 


16600 


T 


0027 


001 


16700 


T 


0027 


OOl 


16800 


T 


0028 


001 


16900 


T 


0030 


001 


17000 


T 


0031 


001 


17100 


T 


0033 


001 


17200 


T 


0034 


001 


17300 


T 


0037 


001 


17400 


T 


0038 


001 


17500 


T 


0039 


001 


17600 


P 


0043 


OOj 


17700 


T 


0045 


OOl 


17800 


T 


0046 


OOl 


17900 


T 


0050 


OOl 


18000 


T 


0053 


001 


18100 


T 


0056 


001 


18200 


T 


0058 


001 


18300 


T 


0061 



53 



L 

C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

r 

c 
c 
c 
o 



o 

0} 

o 
o 



o 

> 

p 

i 

o 

to 

n 
ca 

o 
o 

*o 
o 

o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
n 



THRUt 

END OLOUT; 



53 



00118400 T 

00118500 T 

IS 68 LONG* 



0063 
0063 
NEXT SEG 



$******************************************************** 

PROCEDURE DUFlNAL; 

% *************** *********************** ******************* 

BEGIN 

FORMAT F ("THERE WERE «,I8» W FILES %/, 



"OCCUPYING "#l9» n DISK SEGMENTS");* 

FORMAT FBC'NO, OF USERS PROCESSED WASl",l8,/, 

"AVe, DISK SPACE PER USER I»»I8)IX 

WrITECPRNT[DBL]»F»GTh-1«gT9>J* 

WRlTECPRNT[DBL3»FB»Gri5»GT9/GTl5)i* 
END DLFINaL;^ 



00118600 
00H8700 
00118800 
00H8900 
00119000 
START OF SEGMENT 
START OF SEGMENT 
00119100 

55 IS 15 LONG 

0OH9200 

START OF SEGMENT 

00H9300 

56 IS 16 LONG 

00119400 
00119500 
00119600 
54 IS 22 LONG 



T 0197 

T 0197 

T 0197 

T 0197 

T 0197 

********** 

********** 
T 0000 
* NEXT SEG 
T 0000 

********** 



0000 
NEXT SEG 

0000 

0010 

0021 
NEXT SEG 



54 
5b 

54 

56 

54 



%%%%%%% 
COMMENT 

flfl Ait) flfl/t 

COMMENT 

% 

% 

% 

% 

% 

% 

% 

% 

% 

2****** 

PROCEDU 

%****** 



%%%%%%%%%%% 

!:::! sect 

METERS 



f\ <h fa K> 7b 

PARA 
OPT 
OPT 
OPT 
OPT 
OPT 
OPT 
OPT 
OPT 
OPT 
***** 

RE PR 
** *** 



1 " 

2 - 

3 - 

4 - 

5 - 

6 - 

7 - 

8 - 

9 - 
****** 

OCESSP 

****** 



%%%%% 
ION * 

%%%%% 
ARE* 
"OS" 
"TU" 
"DL" 
"HL" 
"LIN 
"ERR 
"MeR 
"SUM 
"DET 

***** 

ARAMS 

** *** 



%%%% 
07 

%%%% 



E" - 

GE n - 
»i - 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
- PARAMETER PROCESSING >»?:*; 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

ONSlTE REPORT 
TERMINAL USER REPORT 
DISK LOGGIN REPORT 
H/L ANALYSIS 
LINE ANALYSIS 
ERROR ANALYSIS 
MfRGE INPUT 

output summary Record on disk 
print grubby details 

********************************** 



I! 

****! 

;% 

************************************** 



BEGIN 

FORMAT FlC'PARAMETERS")* 



f2c"inv parametercs)..»try again"); 
integer i»J; 

REAL PI* 

ARRAY A[1»MAXPARAMS]»* 

LIST PARALISTCFOR J:= 1 STEP 1 UNTIL MAXPARAMS DO AND; 
LABEL GET; 
GET * IF NOT COMROO THEN WR I TEC TWX [ STOP i * F 1 ) i% 

Readctwx./z.paralist); J *=0;x 



START 
START 

58 IS 



001 
001 
OOl 
001 
OOl 
001 
001 
001 
001 
001 
001 
001 
001 
OOl 
OOl 
001 
001 
001 
OF SE 
OF SE 
001 

1 

OOl 
OOl 
OOl 
001 
001 
001 
001 



19700 
19800 
19900 
20000 
20100 
20200 
20300 
20400 
20500 
20600 
20700 
20800 
20810 
20900 
21000 
21100 
21200 
21300 
GMENT 
GMENT 
21400 
3 LON 
21500 
21600 
21700 
21800 
21900 
22000 
22100 



T 0197 

T 0197 

T 0197 

T 0197 

T 0197 

T 0197 

T 0197 

T 0197 

T 0197 

T 0197 

T 0197 

T 0197 

C 0197 

T 0197 

T 0197 

T 0197 

T 0197 

T 0197 
********** 
********** 



T 
Go 
T 
T 
T 
T 
T 
T 
T 



0000 
NEXT SEG 
0000 
0000 
0000 
0001 
0012 
0012 
0017 



57 
57 



c 

c 

L 
C 

c 
c 
c 
c 
c 
c 
c 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



o 

o 
o 
o 
o 

to 

E 

LL 

fO 

O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 

r) 



while p?=A[j:=j+n neq o do* 

BEGIN COMMENT PROCESS PARAMETER LIST; 
IF I isMATCHCPipARAWOS) = THEN 
BEGIN COMMENT INVALID PARANETERJ 

W R ITE(TWX,F2)} 

GO GET; 
END ELSE CASE ClM) OF 
BEGIN COMMENT SET TOGS ACCORDING TO PARAMETER; 

ONSITETOGJ-TRUEJS 

TERMlNALlOGlsTRuE;! 

diskt0gs-truej2 
hltog;=true;s 

LlNETOGI B TRUE»X 
ERRTOG'sTRUEJX 

meRgetog?=true? 
sumtog'sTrue; 
oetog 5- true; 
end tog setting? 



END PROCESSING OF PARAMETER LIST; 
END PROCESSPARAMSJX 



00122200 
00122300 
00122400 
00122500 
00122600 
00122700 
00122800 
00122900 
00123000 
00123100 
00123200 
00123300 
00123400 
00123500 
00123600 
00123700 
00123710 
00123800 
START OF SEGMENT 
59 IS 10 LONG* 
00123900 T 



0021 
0025 
0025 
0028 
0028 
0031 
0032 
0033 
0033 
0035 
0036 
0037 
0036 
0040 
0041 
0042 
0043 
0045 
********** 

NEXT SEG 
0045 



59 
57 



57 IS 



00124000 T 
51 LONG* 



0046 
NEXT SEG 



?;**************** + *************************************• 

PROCEDURE getmerge;* 

COMMENT ASKS FOR AND S^TS Up MERGE FILE ID; 
i^******************************************************.^ 

BEGIN 

FORMAT FTCMERGE FILE MFID.,.")*"* 



IF 



not comboo. then 

WRlTECTWX[STOP],FTm 

Readctwx,/,mergeid>ix 
fill mergeffle with merge i d , "log" ; % 
END getmerge;x 



START 
START 
61 



60 



00124100 
00124200 
00124300 
00124400 
00124500 
00124600 
OF SEGMENT 
OF SEGMENT 

IS 6 LONG* 
00124610 T 
00124700 
00124800 
00124900 
00125000 

IS 17 LONG* 



0197 
0197 
0197 
0197 
0197 

0197 

********** 

********** 

NEXT SEG 

0000 

0000 

0004 

0011 

0015 
NEXT SEG 



60 
61 
60 



X******************************************************** 

REAL PROCEDURE FINdLOGJ* 
%******************************************************** 

BEGIN 

Real i » j; x 

format fnc'log mf i d( s ),,,.»); % 



LABFL AGAIN»INS;X 
IF NOT COMBOO THEN 



START 

START 
63 



00125100 
00125200 
00125300 
00125400 
00125500 

of segment 

00125600 
OF SEGMENT 
IS 6 LONG* 
00125700 T 



0197 
0197 
0197 
0197 
0197 
********** 

T 0000 

********** 

NEXT SEG 
0000 



62 

63 
62 



00125710 T 0000 



c 

c 

r 
\~ 

C 

C 

c 
c 

f~ 

c 
c 
c 
c 
c 
c 
c 
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c 
c 
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( .) 



I 



( )l 

o 
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o 
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i 
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to 

o 

to 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



WRITECTWX[ST0P3»FN);X 

REAr)CTWX[NO]){* 

PTRj=GFTABSADDR(TWXCOn;* 
AGA IN: 

WHILE SCAN=NUMbeRV 1)0 

begin comment maintain file queue in asc order; 
if fidp=o Then go to ins;*; 

FOR IlsO STEP 1 UnI II FIDP-1 
DO IF ACCUM LSS FlDQ[I] THEN 
BEGIN COMMENT MOVE Em Up? 

FOR Jj-FIDP STEP -1 UNTIL I 

DO FIDQCJ+13|«sFlOQt J3j 

GO INSJ 2 

f n d; 
ins i fidP;=fidp+i; fidoci]!=accum;x 

END FILE QUEUE MAINTENANCE* 
IF RESULT NEQ GPMK THEN GO TO AGAIN; 
FINDL0GJ=FIDQC035X 
END FINdLOG;* 



00125800 
00125900 
00126000 
00126100 
00126200 
00126300 
OO1264OQ 
00126500 
00126600 
00126700 
00126800 
00126900 
00127000 
00127100 
00127200 
00127300 
00127400 
00127500 
00127600 



0000 
0004 
0008 
0012 
0013 
0016 
0016 
0017 
0020 
0022 
0023 
0023 
0028 
0028 
0029 
0032 
0033 
0034, 
0035 



62 IS 38 LONG. NEXT SEG 



IS******************************************************** 

procedure getwork;* 

%******************************************************** 
BEGIN 

LabfL AGAIN?* 

Real i»t;x 
intfger Hi% 
%, ...,.,. ....,..., 

stream procedure makef i dl i nec n * f i ds» tog» merg» arry ) ; % 

value merg»n»tog;x 
%,, ♦ ,.., ..,..,.,,, , .,,. 

BEGIN DIJ=ARRYJ S I ; = F I S ? * 

DSl=l9 LIT"FILESJ CURRENT,,,"; 

NCUPSUUPDI; DS5=7 CHR; DS!=2 LIT "» " ) ; 
TOGCDIJ-ARRY; D I » =D I +63} S 

DI j-OI+47; SI ;=LOC MERGJ* 

DSJ-8 LlT"M E RGE..."; DSS=WDS)J* 

fNd Make fidliNe;x 



AGA I N 8 

IF HFIDJsFlNDLOG NEQ THEN 
BEGIN FILL DISK WiTh MFID,"LOG »} 
READ(DI$K[N03»10#L0GrECC*])U 
LlNEARRYCo3|sMIXARRYto3|s-BE6lNTlME|=LOGRECCo3tTIMEFl 

processparams;* 

if mergetog then getmerge;* 

nfidliness=fidp DIV 9 + m 

FOR I»=0 STEP 1 UNTIL NFIDLINES 
DO BLANKOUT(FIOLlNECl»*])IX 



START 



00127700 


T 


0197 


00127800 


T 


0197 


00127900 


T 


0197 


00128000 


T 


0197 


00128100 


T 


0197 


of segment 


********** 


00128200 


T 


0000 


00128300 


T 


0000 


00128400 


T 


0000 


00128500 


T 


0000 


00128600 


T 


0000 


00128700 


T 


0000 


00128800 


T 


0000 


00128900 


T 


0000 


00129000 


T 


0003 


00129100 


T 


0005 


00129200 


T 


0007 


00129300 


T 


0007 


00129400 


T 


0009 



64 



00129500 


T 


0009 


00129600 


T 


0010 


00129700 


T 


0011 


00129800 


T 


0015 


00129900 


P 


0020 


00130000 


T 


0023 


00130100 


T 


0024 


00130200 


T 


0025 


00130300 


T 


0027 


00130400 


T 


0027 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 
c 
c 
c 

y — s 

c 
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o 
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o 
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o 
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o 
o 

o 



FOR p=0 STEP 1 UNTIL NFIDLINES-2 
DO BEGIN 

MAKEFIDLlNEC9#FlDQ[T],0»0»FlDLlNm#*]m 
T;=:T + 9J* 

END;* 

MAKEFIDLINE(N:=F!DP MOD 1 0» F I DQC T 3 * MERGETQG, MERGE I D» 
FIDLINEINFIDLINES"1»*]);X 
FIDP?=0;* 
END ELSE GO AGAIN;* 
fNd GETW'ORK;* 



64 IS 



00130500 T 
00130600 T 
00130700 T 
00130800 T 
00130900 T 
00131000 T 
00131100 T 
00131200 T 
00131300 T 
00131400 T 
48 LONG. 



0032 
0035 
0036 
0039 
0040 
0041 
0043 
0045 
0045 
0045 
NEXT SEG 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
COMMENT $;$:: SECTION - 08 - IN I T I AL I ZE» OUTER BLOCK :: 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
fc - ****************************************************;!, 

PROCEDURE INITIALIZE?* 

X ***************************************************** 

BEGIN 

DEFINE Y=DATE3#,D=DATE2#»M*DATEl#i* 

INTEGER H#P#QJ* 

REAL, N* 

ARRAY ACOI63M 

LABEL OWTJ* 

FILL A C * 3 WITH " SUN"» 



'» MON"t 
" TUES"» 
"WEDNFS'S 
" THURS"» 
F R I" » 

" satur*'; 
y;=time(0)u 

D*Y,[30:6]xi00+Y,t36»6]xl0+Y t [42«63; 
YJ=Y,C18 5 63xlO+Y,[24'63;XSAVE 
I js-i jX 

FOR HJ-31 ^ IF Y MOD 4 =0 ThEN 29 ELSE 

30i3l»31»30*31r30*3l 

DO IF D LEO C0AYSlN[I;aI+l3|sH) THEN 

begin dj-d-h; M{=m+i end;* 

OWTJIF M LSS 2 THEN BEGI N Qs=M+ll; PjsY-1 END ELSE 

begin qs=m-i? ptcy end;* 

DAY$ = Ar((Q><26-2) DlV 10+D+P+P , [ 36 i iO J + 1 ) MOD 7 3?* 
FILL UNITE*] WITH «mTA"»»mTB m »"MTC"»"MTD"» 

"MTe ,, » ,, MTF , S"MTH'S , 'MTJ"»"mTK"» ,, MTL"»"MTM ,, » 
,t MTp'S"MTp"»"MTR"»"MTS"» ,, MTT ,t t ,f DRA ,, »"DRB"# 
"DKfl",»DKB ,, »"LPA"»"LPB"»"cPA"' ,, CRA"' ,, CRB"» 
"SP0'%"PPA"»"PRA"»"PP8"#"PRb"'"DCA ,, J* 

FILL AST£RISK[*3 WITH " *", 



28»31#30»31» 
GO OWT ELSE 



%%%%%%%%%%%%%%%%%% 00131500 


T 


0197 


!iH 00131600 


T 


0197 


%%%%%%%%%%%%%%%%%% 00131700 


T 


0197 


****************** 00131800 


T 


0197 


00131900 


T 


0197 


****************** 00132000 


T 


0197 


00132100 


T 


0197 


00132200 


T 


0197 


START OF SEGMENT 


********** 


00132300 


T 


0000 


00132400 


T 


0000 


00132500 


T 


0000 


00132600 


T 


0001 


00133000 


T 


0001 


START OF SEGMENT 


^i ^t jJC ^p ^^ ^p ^fi ^p ^^ ^ 


00133100 


T 


0003 


00133200 


T 


0003 


00133300 


T 


0003 


00133400 


T 


0003 


00133500 


T 


0003 


00133600 


T 


0003 


66 IS 7 LONG. 


NEXT SEG 


00J33700 


T 


0003 


OO1338OO 


T 


0004 


00133900 


T 


0009 


00134000 


T 


0011 


00134100 


T 


0012 


00134200 


T 


0025 


00134300 


T 


00 37 


00134400 


T 


0042 


00134500 


T 


0046 


00134600 


T 


0049 


00134700 


T 


0052 


00134800 


T 


0053 


00134900 


T 


0059 


START OF SEGMENT 


********** 


00135000 


T 


0060 


00135100 


T 


0060 


00135200 


T 


0060 


00135300 


T 


0060 


67 IS 31 LONG 


i » 


NEXT SEG 


00135400 


T 


0060 



65 



66 



6b 



67 



6b 
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to 
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iO 
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to 
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o 
o 
o 
o 
o 
o 



o 



o 
o 
o 

o 



**",'« 



!(( * * ft - It 



****«;% 

FILL LEVELARRY[*] WITH "PROGRAM"* 
"SESSION". "USER "."REPORT »!% 
FILL ONOFFARRYC*] WITH "ON LINE "."OFF LINE";* 

FILL PARAWDSCtO WITH MaXP A RaM» "OS". "TU". "DL"» 
"HL","LlNF."»"ERf<"."MERGE ,, »"5UM","DET"; 

FILL CPLRNM[*J WITH 9, "BASIC "."AL<*OL "."COBOL "."FORTRAN". 
"TSPOL "."XALGoL "»"C0B0L68"»"PASCAL "."ESPOL ") 

FOR H I -1 STEP 1 UNTIL CPLrNMEOJ 00 COMP I LS t H3 j-0; 
FOR Hs= STEP 1 UNTIL NUMLINE 00 L I NEARRY C H] : =0; 
FOR H;=0 STEP 1 UNTIL MJXMAX DO MIXARRYtH J 1*01 
BLANKOUT(ULlNE);X 
END INITIALIZED 



START Of SEGMENT ********** 68 
00135500 T 0062 

68 IS 4 LONG. NEXT SEG 65 

00135600 T 0062 

START 0F SEGMENT ********** 69 

00135700 T 0064 

69 IS 4 LONG. NEXT SEG 65 

00135600 T 0064 
START OF SEGMENT ********** 70 

70 IS 2 LONG. NEXT SEG 65 

00135900 T 0066 

START Of SFGMENT ********** 71 

00136000 P 0067 

71 IS 10 LONG. NEXT SEG 65 

00136010 C 0067 

START OF SEGMENT ********** 72 

00136020 C 0069 

72 IS 10 LONG. NEXT SEG 65 

00136030 C 0069 
00136040 C 0075 
00136050 C 0080 
00136100 T 0085 
00136200 T 0086 
65 IS 92 LONG. NEXT SEG 2 



%t***************************t********* ***************** 
COMMENT OUTER BLOCK; 
%******************************************************** 

INITIALIZE* 
GETWORKjX 

PTRRASE != GETABSADDRCLOGRECU]); 

IF TERMINALTOG OR ONSlTETOG OR SUMTOG THEN 

BEGIN cOMMFNT REMOTE AND/OR LOcaL REPORTS;* 

% delftf a card 

putheadeRcuseRpt); 
if detog then 

if terminaltog or onsltetog then putheader( ons 1 te ) ; x 

SORT(oSoUT.oSlN'0.oSVAi 4 .oSCOMP»OSRECSl»4000)jX 

nextpageconsite); osfInalu 
hlana; hltog;=false;x 
errana; errToGs s falSe;s 

IF TERMINALTOG OR LInETOG THEN 

BEGIN LlNEANAf L INETOG ! =F ALSE END** 
END REMOTE LOCAL REPORTS;* 
IF nISKTOG THEN 

begin comment disk logging report; 
mfid'=fidQ[fidp* s 03;x 

FILL DISK WITH MflDI* 
CLFAR(9,GT6);!g 

PAGENO?=LINECTR?=o;% 

putheadercdiskrpt);x 

SORT ( DLOUT »DL I N»0.DVALtDC0MP»7t 4000)J55 
NEXTPAGECDISKRPT); DlFINAL;* 
END DISK LOGGINGJX 



00136300 
00136400 
00136500 
00136600 
00136700 
0013671Q 
00136800 
00136900 
00137000 
00137100 
00137190 
00137200 
00137300 
00137400 
00137500 
00137600 
00137700 
00137800 
00137900 
00138000 
00138100 
00138200 
00138300 
00138400 
00138500 
OO1386OO 
00138700 
00138800 
00138900 



0197 
0197 
0197 
0197 
0198 
0199 
0201 
0202 
0202 
0202 
0203 
0203 
0206 
0226 
0227 
0229 
0230 
0231 
0232 
0232 
0233 
0233 
0235 
0239 
0240 
0241 
0242 
0262 
0263 
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c 
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c 
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o 
o 
o 
o 
o 
o 
o 



if hltog or linetog or lrrTog then % 

begin cleaner5=true; while not ( os i n< dummy ) ) do; end? 

IF HL.TOG THEN hLaNAJ* 

IF LINETOG THEN LiNeANa;* 

if fRRTOg then eRRAna;* 
end, ?! of program 



NUMBER OF ERRORS DETECTED = 0, COMPILATION TIME * 1035 SECONDS, 

PRT SIZE = 238; TOTAL SEGMENT SIZE = 2612 WorOS; DISK SIZE = 145 SEGSj NO. PGMi SEGS 

ESTIMATED CORE STORAGE REQUIRED s 12232 WORDS, 

ESTIMATED AUXILIARY MEMORY REQUIRED - Q WORDS. 

NUMBER OF CARD-IMAGES PROCESSED = 1529, 

LABEL OOOOOOOOOLINE 00177069?C0MP I LE LOGAN/DISK TSPOL LIBRARY 



2 

1 

83 



IS 
IS 
IS 



00139000 T 

00139100 P 

00139200 T 

00139300 T 

0013940Q T 

00139500 T 

277 LONG. 

2 LONG. 

69 LONG. 



0263 

0264 

0270 

0271 

0272 

0273 
NEXT SEG 
NEXT SEG 
NEXT SEG 
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TSPOL /LOGAN 
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